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

   1 import "Prelude"
   2
   3 myShow :: Dynamic -> String
   4 myShow (Dynamic v) = show (v :: Integer)
   5 myShow (Dynamic v) = show (v :: Double)
   6 myShow (Dynamic v) = show (v :: String)
   7 myShow (Dynamic v) = show (v :: Boolean)
   8 myShow (Dynamic v) = "[\(intercalate ", " $ map myShow v)]"
   9 myShow _ = "Unknown"
  10
  11 main = myShow $ Dynamic [Dynamic False, Dynamic (3 :: Integer), Dynamic (3.1 :: Double), Dynamic "Foo"]
  12 --
  13 [False, 3, 3.1, "Foo"]