Automatic deriving of instances for Json

[simantics/platform.git] / bundles / org.simantics.scl.data / scl / Data / Json.scl

diff --git a/bundles/org.simantics.scl.data/scl/Data/Json.scl b/bundles/org.simantics.scl.data/scl/Data/Json.scl
index 2190287fcf7560d9f637e20e5600c6ef9805bcff..cacffb01acc806a48d284f220afc8e874c8b8a65 100644 (file)
--- a/bundles/org.simantics.scl.data/scl/Data/Json.scl
+++ b/bundles/org.simantics.scl.data/scl/Data/Json.scl
@@ -174,6 +174,7 @@ instance Json Double where
     readJson = getDoubleValue
     toJson = JsonDouble
     fromJson (JsonDouble value) = value
+    fromJson (JsonLong value) = Java.l2d value
 
 instance Json Float where
     writeJson = writeNumberFloat