X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=afp%2Fa5%2Fa5.icl;h=1351bd6933805a0a3542defc3b4e44f0011d9f58;hb=d26a3de8f47eefd5839f71ab4fe7145966ce0e45;hp=be8170039327920f42c351ec24e7b5849c77f76e;hpb=fe990e60c8a3ddf16f39295c854c295dab5e4d18;p=clean-tests.git

diff --git a/afp/a5/a5.icl b/afp/a5/a5.icl
index be81700..1351bd6 100644
--- 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