diff options
author | Joris | 2016-03-20 22:38:44 +0100 |
---|---|---|
committer | Joris | 2016-03-21 20:43:55 +0100 |
commit | 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 (patch) | |
tree | 4ff8aeb6aa0f159548f8f506374276c1a2c97f7d /src/server/Secure.hs | |
parent | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (diff) | |
download | budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.gz budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.bz2 budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.zip |
use config-manager instead of ConfigFile
Diffstat (limited to 'src/server/Secure.hs')
-rw-r--r-- | src/server/Secure.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/server/Secure.hs b/src/server/Secure.hs index 7b6e6de..f563f23 100644 --- a/src/server/Secure.hs +++ b/src/server/Secure.hs @@ -12,14 +12,12 @@ import Network.HTTP.Types.Status (forbidden403) import Database.Persist (Entity, entityVal) import Model.User (getUser) -import Model.SignIn (getSignInToken) +import Model.SignIn (getSignIn) import Model.Database import Control.Monad.IO.Class (liftIO) import Data.Text (Text) -import qualified Data.Text as T -import qualified Data.Text.IO as TIO import qualified LoginSession @@ -41,7 +39,7 @@ loggedAction action = do getUserFromToken :: Text -> Persist (Maybe (Entity User)) getUserFromToken token = do - mbSignIn <- fmap entityVal <$> getSignInToken token + mbSignIn <- fmap entityVal <$> getSignIn token case mbSignIn of Just signIn -> do getUser (signInEmail signIn) |