Commit 32e95d5c authored by Bas Lijnse's avatar Bas Lijnse

Updated examples to change in workflow admin ui

parent 95b21fe2
Pipeline #21086 failed with stage
in 1 minute and 52 seconds
......@@ -17,7 +17,7 @@ Start world = doTasks
,onRequest "/" (ccMain registerTasks continuousTasks alwaysOnTasks optionalTasks <<@ (Title "C2 System"))
,onRequest "/tonic" (tonicDashboard [])
,onRequest "/debug" showDebug
,onRequest "/adventure" (loginAndManageWork "Adventure")
,onRequest "/adventure" (loginAndManageWork "Adventure" Nothing)
,onRequest "/alarm" (setSectionDetectors)
,onRequest "/log" showLog
//,onRequest "/devices" (manageDevices True)
......
......@@ -9,7 +9,7 @@ import iTasks.UI.Definition, iTasks.Extensions.Admin.UserAdmin
Start :: *World -> *World
Start world = doTasks
[onStartup (installWorkflows workflows)
,onRequest "/" (loginAndManageWork "The Taxman")
,onRequest "/" (loginAndManageWork "The Taxman" Nothing)
] world
workflows :: [Workflow]
......
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