diff options
Diffstat (limited to 'src/server/Cookie.hs')
| -rw-r--r-- | src/server/Cookie.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/server/Cookie.hs b/src/server/Cookie.hs index 1495fc1..96d45da 100644 --- a/src/server/Cookie.hs +++ b/src/server/Cookie.hs @@ -38,10 +38,10 @@ makeSimpleCookie conf name value = , setCookieSecure = Conf.https conf } -setCookie :: (Monad m, ScottyError e) => SetCookie -> ActionT e m () +setCookie :: (Monad m) => SetCookie -> ActionT e m () setCookie name = addHeader "Set-Cookie" (TL.decodeUtf8 . toLazyByteString $ renderSetCookie name) -setSimpleCookie :: (Monad m, ScottyError e) => Conf -> TS.Text -> TS.Text -> ActionT e m () +setSimpleCookie :: (Monad m) => Conf -> TS.Text -> TS.Text -> ActionT e m () setSimpleCookie conf name value = setCookie $ makeSimpleCookie conf name value getCookie :: (Monad m, ScottyError e) => TS.Text -> ActionT e m (Maybe TS.Text) @@ -52,5 +52,5 @@ getCookies = liftM (Map.fromList . maybe [] parse) $ header "Cookie" where parse = parseCookiesText . BSL.toStrict . TL.encodeUtf8 -deleteCookie :: (Monad m, ScottyError e) => Conf -> TS.Text -> ActionT e m () +deleteCookie :: (Monad m) => Conf -> TS.Text -> ActionT e m () deleteCookie conf name = setCookie $ (makeSimpleCookie conf name "") { setCookieExpires = Just $ posixSecondsToUTCTime 0 } |