Create a gist now

Instantly share code, notes, and snippets.

simpleHTTP nullConf $ msum
[ dir "test" $ msum [ do
sessionId <- readCookieValue "uid"
ok $ toResponse $ "Cookie: " ++ (sessionId :: String)
, ok $ toResponse $ ("No cookie!" :: String)
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment