diff options
| author | Joris | 2017-11-13 23:56:40 +0100 |
|---|---|---|
| committer | Joris | 2017-11-14 00:03:10 +0100 |
| commit | 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 (patch) | |
| tree | 4884de1d03bc47ba8f06b2cf68365d9eed9e0d39 /server/src/Secure.hs | |
| parent | 213cf7ede058b781fc957de2cd9f6a5988c08004 (diff) | |
| download | budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.tar.gz budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.tar.bz2 budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.zip | |
Setup stylish-haskell
Diffstat (limited to 'server/src/Secure.hs')
| -rw-r--r-- | server/src/Secure.hs | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/server/src/Secure.hs b/server/src/Secure.hs index f427304..88bdcda 100644 --- a/server/src/Secure.hs +++ b/server/src/Secure.hs @@ -5,21 +5,21 @@ module Secure , getUserFromToken ) where -import Control.Monad.IO.Class (liftIO) -import Data.Text (Text) -import Data.Text.Lazy (fromStrict) -import Network.HTTP.Types.Status (forbidden403) -import Web.Scotty +import Control.Monad.IO.Class (liftIO) +import Data.Text (Text) +import Data.Text.Lazy (fromStrict) +import Network.HTTP.Types.Status (forbidden403) +import Web.Scotty -import qualified Common.Message as Message -import qualified Common.Message.Key as Key -import Common.Model (User) +import qualified Common.Message as Message +import qualified Common.Message.Key as Key +import Common.Model (User) -import Model.Query (Query) import qualified LoginSession -import qualified Model.Query as Query -import qualified Model.SignIn as SignIn -import qualified Model.User as User +import Model.Query (Query) +import qualified Model.Query as Query +import qualified Model.SignIn as SignIn +import qualified Model.User as User loggedAction :: (User -> ActionM ()) -> ActionM () loggedAction action = do |