Merge branch 'master' of git.martlubbers.net:clean-tests

[clean-tests.git] / afp / a5 / a5.icl

diff --git a/afp/a5/a5.icl b/afp/a5/a5.icl
index be81700..1351bd6 100644 (file)
--- a/afp/a5/a5.icl
+++ b/afp/a5/a5.icl
@@ -28,7 +28,7 @@ Start w = doTasks login w
 
 login :: Task [Question]
 login = enterInformation "Enter your function" []
-       >>= \function->case function of
+       >>~ \function->case function of
                Teacher = teacher
                Admin = admin
                Student = student
@@ -62,6 +62,7 @@ where
 
 admin :: Task [Question]
 admin = updateSharedInformation "Questions" [] questions
+       >>* [OnAction (Action "Quit") (always login)]
 
 teacher :: Task [Question]
 teacher = forever