Commit 1224e262 authored by Bas Lijnse's avatar Bas Lijnse

Added list users workflow. (forgot to commit it a while ago..)

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@971 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 6d3d0156
......@@ -7,6 +7,7 @@ userAdministration
= [{Workflow|name = "Admin/Create user", label = "Create user ", roles = ["admin"], mainTask = createUserFlow}
,{Workflow|name = "Admin/Update user", label = "Update user", roles = ["admin"], mainTask = updateUserFlow}
,{Workflow|name = "Admin/Delete users", label = "Delete users", roles = ["admin"], mainTask = deleteUserFlow}
,{Workflow|name = "Admin/List users", label = "List users", roles = ["admin"], mainTask = listUserFlow}
]
createUserFlow :: Task Void
......@@ -37,4 +38,9 @@ deleteUserFlow
ActionCancel = stop
ActionOk = allTasks [deleteUser user \\ user <- users]
>>| showMessage "Successfully deleted users"
listUserFlow :: Task Void
listUserFlow
= getUsers
>>= showMessageAbout "These are the current users"
\ No newline at end of file
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