Commit 2cf4576d authored by Bas Lijnse's avatar Bas Lijnse

Updated distributed example

parent ca84887f
......@@ -140,7 +140,7 @@ where
browseAuthenticated workflows {Credentials|username,password}
= remoteAuthenticateUser username password
>>= \mbUser -> case mbUser of
Just user = workAs user manageWorkOfCurrentUser
Just user = workAs user (manageWorkOfCurrentUser Nothing)
Nothing = viewInformation (Title "Login failed") [] "Your username or password is incorrect" >>| return ()
Start :: *World -> *World
......
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