secret
Created

  • Download Gist
happstackCookie.hs
Haskell
1 2 3 4 5 6
simpleHTTP nullConf $ msum
[ dir "test" $ msum [ do
sessionId <- readCookieValue "uid"
ok $ toResponse $ "Cookie: " ++ (sessionId :: String)
, ok $ toResponse $ ("No cookie!" :: String)
]

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.