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/LoginSession.hs | 52 ----------------------------------------------
 1 file changed, 52 deletions(-)
 delete mode 100644 server/src/LoginSession.hs

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

diff --git a/server/src/LoginSession.hs b/server/src/LoginSession.hs
deleted file mode 100644
index 86f1329..0000000
--- a/server/src/LoginSession.hs
+++ /dev/null
@@ -1,52 +0,0 @@
-module LoginSession
-  ( put
-  , get
-  , delete
-  ) where
-
-import           Cookie                 (deleteCookie, getCookie,
-                                         setSimpleCookie)
-import qualified Web.ClientSession      as CS
-import           Web.Scotty             (ActionM)
-
-import           Control.Monad.IO.Class (liftIO)
-
-import           Data.Text              (Text)
-import qualified Data.Text.Encoding     as TE
-
-import           Conf                   (Conf)
-
-sessionName :: Text
-sessionName = "SESSION"
-
-sessionKeyFile :: FilePath
-sessionKeyFile = "sessionKey"
-
-put :: Conf -> Text -> ActionM ()
-put conf value = do
-  encrypted <- liftIO $ encrypt value
-  setSimpleCookie conf sessionName encrypted
-
-encrypt :: Text -> IO Text
-encrypt value = do
-  iv <- CS.randomIV
-  key <- CS.getKey sessionKeyFile
-  return . TE.decodeUtf8 $ CS.encrypt key iv (TE.encodeUtf8 value)
-
-get :: ActionM (Maybe Text)
-get = do
-  maybeEncrypted <- getCookie sessionName
-  case maybeEncrypted of
-    Just encrypted ->
-      liftIO $ decrypt encrypted
-    Nothing ->
-      return Nothing
-
-decrypt :: Text -> IO (Maybe Text)
-decrypt encrypted = do
-  key <- CS.getKey sessionKeyFile
-  let decrypted = TE.decodeUtf8 <$> CS.decrypt key (TE.encodeUtf8 encrypted)
-  return decrypted
-
-delete :: Conf -> ActionM ()
-delete conf = deleteCookie conf sessionName
-- 
cgit v1.2.3