From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 server/src/Cookie.hs | 55 ----------------------------------------------------
 1 file changed, 55 deletions(-)
 delete mode 100644 server/src/Cookie.hs

(limited to 'server/src/Cookie.hs')

diff --git a/server/src/Cookie.hs b/server/src/Cookie.hs
deleted file mode 100644
index 00d73f2..0000000
--- a/server/src/Cookie.hs
+++ /dev/null
@@ -1,55 +0,0 @@
-module Cookie
-  ( makeSimpleCookie
-  , setCookie
-  , setSimpleCookie
-  , getCookie
-  , getCookies
-  , deleteCookie
-  ) where
-
-import           Control.Monad            (liftM)
-
-import qualified Data.Text                as TS
-import qualified Data.Text.Encoding       as TS
-import qualified Data.Text.Lazy.Encoding  as TL
-
-import           Conf                     (Conf)
-import qualified Conf
-
-import qualified Data.Map                 as Map
-
-import qualified Data.ByteString.Lazy     as BSL
-
-import           Data.Time.Clock.POSIX    (posixSecondsToUTCTime)
-
-import           Blaze.ByteString.Builder (toLazyByteString)
-
-import           Web.Cookie
-import           Web.Scotty.Trans
-
-makeSimpleCookie :: Conf -> TS.Text -> TS.Text -> SetCookie
-makeSimpleCookie conf name value =
-  def
-    { setCookieName  = TS.encodeUtf8 name
-    , setCookieValue = TS.encodeUtf8 value
-    , setCookiePath = Just $ TS.encodeUtf8 "/"
-    , setCookieSecure = Conf.https conf
-    , setCookieHttpOnly = True
-    }
-
-setCookie :: (Monad m) => SetCookie -> ActionT e m ()
-setCookie name = addHeader "Set-Cookie" (TL.decodeUtf8 . toLazyByteString $ renderSetCookie name)
-
-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)
-getCookie name = liftM (Map.lookup name) getCookies
-
-getCookies :: (Monad m, ScottyError e) => ActionT e m (Map.Map TS.Text TS.Text)
-getCookies =
-  liftM (Map.fromList . maybe [] parse) $ header "Cookie"
-  where parse = parseCookiesText . BSL.toStrict . TL.encodeUtf8
-
-deleteCookie :: (Monad m) => Conf -> TS.Text -> ActionT e m ()
-deleteCookie conf name = setCookie $ (makeSimpleCookie conf name "") { setCookieExpires = Just $ posixSecondsToUTCTime 0 }
-- 
cgit v1.2.3