Commit 033101e4 authored by Bas Lijnse's avatar Bas Lijnse

Updated another forgotten example

parent 32e95d5c
Pipeline #21087 passed with stage
in 4 minutes and 48 seconds
......@@ -108,7 +108,7 @@ startMode executable
>>- \role = case role of
DomainServer domain -> startAuthEngine domain
>>| installWorkflows (myTasks True)
>>| loginAndManageWork "Service engineer application"
>>| loginAndManageWork "Service engineer application" Nothing
Server domain -> startAuthEngine domain >>| loginRemote (myTasks False)
_ -> viewInformation "Welcome" [] "Chose what this iTasks instance is."
>>* [ OnAction (Action "Domain server") (always (domainServer))
......@@ -127,7 +127,7 @@ where
>>= \domain -> set (DomainServer domain) serverRoleShare
>>| startAuthEngine domain
>>| installWorkflows (myTasks True)
>>| loginAndManageWork "Service engineer application"
>>| loginAndManageWork "Service engineer application" Nothing
loginRemote :: ![Workflow] -> Task ()
loginRemote workflows
......
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