Rewrite in Rust

1 files changed, 0 insertions, 31 deletions

diff --git a/server/src/Secure.hs b/server/src/Secure.hs
deleted file mode 100644
index a30941f..0000000
--- a/server/src/Secure.hs
+++ /dev/null
@@ -1,31 +0,0 @@
-module Secure
-  ( loggedAction
-  ) where
-
-import           Control.Monad.IO.Class    (liftIO)
-import qualified Data.Text.Lazy            as TL
-import qualified Network.HTTP.Types.Status as HTTP
-import           Web.Scotty
-
-import           Common.Model              (User)
-import qualified Common.Msg                as Msg
-
-import qualified LoginSession
-import qualified Model.Query               as Query
-import qualified Persistence.User          as UserPersistence
-
-loggedAction :: (User -> ActionM ()) -> ActionM ()
-loggedAction action = do
-  maybeToken <- LoginSession.get
-  case maybeToken of
-    Just token -> do
-      maybeUser <- liftIO . Query.run . UserPersistence.get $ token
-      case maybeUser of
-        Just user ->
-          action user
-        Nothing -> do
-          status HTTP.forbidden403
-          html . TL.fromStrict . Msg.get $ Msg.Secure_Unauthorized
-    Nothing -> do
-      status HTTP.forbidden403
-      html . TL.fromStrict . Msg.get $ Msg.Secure_Forbidden