From: Mart Lubbers <mart@martlubbers.net>
Date: Thu, 11 Oct 2018 13:27:06 +0000 (+0200)
Subject: a5
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=ee4c83a9c7be2c7c45a8f0815bd35fed6de346c0;hp=-c;p=clean-tests.git

a5
---

ee4c83a9c7be2c7c45a8f0815bd35fed6de346c0
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