diff options
| author | Joris | 2016-06-03 20:27:16 +0200 |
|---|---|---|
| committer | Joris | 2016-06-03 20:27:16 +0200 |
| commit | 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 (patch) | |
| tree | d6ba0985a534a0e2e317b1edb0d4c999119d87ff /src/server/Cookie.hs | |
| parent | 3a88115d118f8256f3ff034dc359df42a9e4051c (diff) | |
| download | budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.tar.gz budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.tar.bz2 budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.zip | |
Migrate to elm 0.17
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 } |