X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=newtype-editor%2Ftest.icl;h=7f4816de38d2686c91f93ad77a3e53faa9a3122e;hb=9f05ee89761c00fe033bddc6a4a3c25c21c77a68;hp=8208eb5e7051199f13fd5958797ba634873a0bab;hpb=b2a4b7c5c620e9d85bda8afa1c5e804ee98ffd89;p=clean-tests.git

diff --git a/newtype-editor/test.icl b/newtype-editor/test.icl
index 8208eb5..7f4816d 100644
--- a/newtype-editor/test.icl
+++ b/newtype-editor/test.icl
@@ -1,15 +1,9 @@
 module test
 
 import iTasks
-
-derive class iTask T1
-
-:: T1 =
-	{ f1 :: Bool
-	, f2 :: Bool
-	}
+import qualified Data.Map as DM
 
 Start w = startEngine t w
 
-t :: Task (Maybe T1)
-t = enterInformation () []
+t :: Task ('DM'.Map Int String)
+t = viewInformation () [] ('DM'.fromList [(42, "foo")])