old/newtype-editor/test.icl

   1 module test
   2
   3 import iTasks
   4 import qualified Data.Map as DM
   5
   6 Start w = startEngine t w
   7
   8 t :: Task ('DM'.Map Int String)
   9 t = viewInformation () [] ('DM'.fromList [(42, "foo")])