Commit 3518bf2a authored by Thomas van Noort's avatar Thomas van Noort

Changed hardcoded users of the internet shop (user creditcard is not really used)

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@348 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 25cde69c
......@@ -37,8 +37,8 @@ where
//Additional hardcoded users for the webshop example
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` "storage" _ = Just (12, [], "Webshop storage")
getUserInfo` "creditcard" _ = Just (13, [], "Credit 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