repositories
/
clean-tests.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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" []
login :: Task [Question]
login = enterInformation "Enter your function" []
- >>
=
\function->case function of
+ >>
~
\function->case function of
Teacher = teacher
Admin = admin
Student = student
Teacher = teacher
Admin = admin
Student = student
@@
-62,6
+62,7
@@
where
admin :: Task [Question]
admin = updateSharedInformation "Questions" [] questions
admin :: Task [Question]
admin = updateSharedInformation "Questions" [] questions
+ >>* [OnAction (Action "Quit") (always login)]
teacher :: Task [Question]
teacher = forever
teacher :: Task [Question]
teacher = forever