Commit fa970e8e authored by Michael Hanus 's avatar Michael Hanus

Code refactoring

parent 81c4c52e
......@@ -99,10 +99,8 @@ withSessionCookie p = do
withSessionCookieInfo :: HtmlPage -> IO HtmlPage
withSessionCookieInfo p = do
hassession <- doesSessionExist
if hassession
then do cookie <- sessionCookie
return $ (p `addPageParam` cookie)
else cookieInfoPage
if hassession then withSessionCookie p
else cookieInfoPage
-- Returns HTML page with information about the use of cookies.
cookieInfoPage :: IO HtmlPage
......
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