Commit f401a0fa authored by Job Cuppen's avatar Job Cuppen

working but not perfect login

parent 4a4eea9e
......@@ -13,13 +13,9 @@ instance Startable LCSMWorkflowCollection
toStartable {LCSMWorkflowCollection|workflows} =
[onStartup (installWorkflows workflows)
,onStartup importUsers
,onStartup (assignWorkflows (hd workflows))
,onRequest "/" (loginAndManageWork "T" Nothing Nothing False)
]
assignWorkflows Workflow -> Task a
assignWorkflows w = "job" @:
:: LCSMUser = {name :: String, roles :: [String] }
lcsm_users :: [LCSMUser]
......@@ -59,33 +55,3 @@ lcsm_Workflows =
Start :: *World -> *World
Start world = doTasks (setup lcsm_Workflows) world
/*
Start :: *World -> *World
Start world = doTasks main world
:: LCSMUser = {name :: String, role :: String }
lcsm_users :: [LCSMUser]
lcsm_users = [{name="job", role="bekijker"}]
main :: Task ()
main = multiUserExample @!()
viewCurrentUser = viewSharedInformation [] currentUser
chooseTask = ent [] currentUser
multiUserExample = allTasks (map (createUser o mkUserAccount) lcsm_users)
>>| doAuthenticated viewCurrentUser
where
mkUserAccount {name,role} =
{ UserAccount|
credentials =
{ Credentials|
username = Username name,
password = Password name
},
title = Nothing,
roles = [role]
}
*/
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