Commit 23406dbc authored by Bas Lijnse's avatar Bas Lijnse

minor fix in the json code of a caught session error

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@333 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent c446c7c4
......@@ -121,7 +121,7 @@ handleSessionRequest handler request world
# world = finalizeHSt hst
= (response, world)
where
mkSessionFailureResponse to = "{\"success\" : \"false\", \"error\" : \"" +++ (if to "Your session timed out" "Failed to load session") +++ "\"}"
mkSessionFailureResponse to = "{\"success\" : false, \"error\" : \"" +++ (if to "Your session timed out" "Failed to load session") +++ "\"}"
initHSt :: !HTTPRequest !*World -> *HSt
initHSt request 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