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

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