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

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

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
-- 
cgit v1.2.3