login :: Task [Question]
login = enterInformation "Enter your function" []
- >>= \function->case function of
+ >>~ \function->case function of
Teacher = teacher
Admin = admin
Student = student
admin :: Task [Question]
admin = updateSharedInformation "Questions" [] questions
+ >>* [OnAction (Action "Quit") (always login)]
teacher :: Task [Question]
teacher = forever