X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=bundles%2Forg.simantics.scl.runtime%2Fscl%2FSerialization.scl;h=ca5286b7af35d092c3078b7f40637d61b6df6b1c;hb=6c99e980d250fb9201aba93be7dcb1f55564dccd;hp=5ba1e0d94aab8a3a700e27bfc66a8957cbcb70bc;hpb=969bd23cab98a79ca9101af33334000879fb60c5;p=simantics%2Fplatform.git

diff --git a/bundles/org.simantics.scl.runtime/scl/Serialization.scl b/bundles/org.simantics.scl.runtime/scl/Serialization.scl
index 5ba1e0d94..ca5286b7a 100644
--- a/bundles/org.simantics.scl.runtime/scl/Serialization.scl
+++ b/bundles/org.simantics.scl.runtime/scl/Serialization.scl
@@ -6,7 +6,7 @@ import "ArrayList" as ArrayList
 class IO a where
     write :: OutputStream -> a -> <Proc> ()
     read  :: InputStream -> <Proc> a
-    ioSize :: a -> Integer
+    ioSize :: a -> <Proc> Integer
     
     ioSize _ = fail "ioSize not implemented"
 
@@ -55,13 +55,6 @@ instance IO String where
     read = readString
     ioSize = ioSizeString
     
-instance IO DoubleArray where
-    write = writeDoubleArray
-    read = readDoubleArray
-    //ioSize v = do
-    //    l = length v
-    //    ioSizeLength l + 8 * l
-    
 instance (IO a) => IO (Maybe a) where
     read s = if read s 
              then Just (read s)