alles werkt behalve 4, super vaag

[ap2015.git] / a6 / mart / skeleton6a.icl

diff --git a/a6/mart/skeleton6a.icl b/a6/mart/skeleton6a.icl
index d6af8d4..d4bcf61 100644 (file)
--- a/a6/mart/skeleton6a.icl
+++ b/a6/mart/skeleton6a.icl
@@ -35,7 +35,7 @@ class iTasksLite a | print a & parse a & TC a
 :: Description   :== String
 :: StoreID a     :== String
 :: *TaskResult a :== (a, TaskState)
-:: *TaskState    = { console :: *File
+:: *TaskState    = { console :: !*File
                    , store   :: Map String Dynamic
                    }
 
@@ -54,7 +54,7 @@ viewInformation d a ts=:{console} =
 
 enterInformation :: Description TaskState -> TaskResult a | iTasksLite a
 enterInformation d ts=:{console}
-# (a, console) = freadline (console <<< "Enter the answer: ")
+# (a, console) = freadline (console <<< d <<< ": ")
 = case parse a of
        Just x = (x, {ts & console=console})
        Nothing = enterInformation d {ts & console=console <<< "Wrong format, try again.\n"}
@@ -125,7 +125,7 @@ where
 Start world
  #     (console, world) = stdio world
        console                  = console <<< "Welcome to iTasksLite\n\n"
-    (r, console)     = eval task4 console
+    (r, console)     = eval task3 console
     console          = console <<< "\nThe result of the task is " <<< print r <<< ".\n"
        (_, world)           = fclose console world
  = world