Getting rid of *Array and replace with Vector * (SCL)

[simantics/platform.git] / bundles / org.simantics.scl.runtime / scl / Serialization.scl

diff --git a/bundles/org.simantics.scl.runtime/scl/Serialization.scl b/bundles/org.simantics.scl.runtime/scl/Serialization.scl
index 5ba1e0d94aab8a3a700e27bfc66a8957cbcb70bc..ca5286b7af35d092c3078b7f40637d61b6df6b1c 100644 (file)
--- 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)