Use a better project structure

1 files changed, 0 insertions, 53 deletions

diff --git a/src/server/LoginSession.hs b/src/server/LoginSession.hs
deleted file mode 100644
index 6f6d620..0000000
--- a/src/server/LoginSession.hs
+++ /dev/null
@@ -1,53 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module LoginSession
-  ( put
-  , get
-  , delete
-  ) where
-
-import Web.Scotty (ActionM)
-import Cookie (setSimpleCookie, getCookie, deleteCookie)
-import qualified Web.ClientSession as CS
-
-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