]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Serialization4.scl
Supply SVG text editor with element measurement context
[simantics/platform.git] / 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)