tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Serialization4.scl

   1 import "StandardLibrary"
   2
   3 rt :: Serializable a => a -> a
   4 rt v = deserialize (serialize v)
   5
   6 main :: String
   7 main = do
   8     a = (1 :: Integer,"asd")
   9     b = MMap.create ()
  10     MMap.put b "asdasd" (4 :: Long)
  11     show (rt a, MMap.get (rt b) "asdasd")
  12 --
  13 ((1, "asd"), Just 4)