Commit 50fdb5e2 authored by Thomas van Noort's avatar Thomas van Noort

Changed the hard-coded users of the internet shop example

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@343 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 87f1af1a
......@@ -35,10 +35,10 @@ where
getUserInfo` "worker2" _ = Just (4, ["worker"], "Office Worker 2")
//Additional hardcoded users for the webshop example
getUserInfo` "customer" _ = Just (10, [], "Web shop customer")
getUserInfo` "gerrit" _ = Just (11, [], "Gerrit (Bank)")
getUserInfo` "joe" _ = Just (12, [], "Joe (Web shop warehouse)")
getUserInfo` "cccheck" _ = Just (13, [], "Credit card mechanical turk")
getUserInfo` "customer" _ = Just (10, [], "Webshop customer")
getUserInfo` "bank" _ = Just (11, [], "Bank authorization")
getUserInfo` "webshop" _ = Just (12, [], "Webshop stock manager")
getUserInfo` "mastercard" _ = Just (13, [], "Master Card authorization")
getUserInfo` _ _ = Nothing
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment