From 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 20 Mar 2016 22:38:44 +0100
Subject: use config-manager instead of ConfigFile

---
 src/server/Controller/SignIn.hs | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'src/server/Controller/SignIn.hs')

diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index d4a1e25..0153784 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -22,7 +22,7 @@ import Data.Maybe (isJust)
 
 import qualified LoginSession
 
-import Config
+import Conf
 
 import SendMail
 
@@ -38,15 +38,15 @@ import Secure (getUserFromToken)
 
 import qualified View.Mail.SignIn as SignIn
 
-signIn :: Config -> Text -> ActionM ()
-signIn config login =
+signIn :: Conf -> Text -> ActionM ()
+signIn conf login =
   if Email.isValid (TE.encodeUtf8 login)
     then do
       maybeUser <- liftIO . runDb $ getUser login
       case maybeUser of
         Just user -> do
           token <- liftIO . runDb $ createSignInToken login
-          let url = T.concat ["http://", hostname config, "/validateSignIn?token=", token]
+          let url = T.concat ["http://", hostname conf, "/validateSignIn?token=", token]
           maybeSentMail <- liftIO . sendMail $ SignIn.getMail (entityVal user) url [login]
           case maybeSentMail of
             Right _ ->
@@ -61,28 +61,28 @@ signIn config login =
       status badRequest400
       text . TL.pack . show $ EnterValidEmail
 
-validateSignIn :: Config -> Text -> ActionM ()
-validateSignIn config textToken = do
+validateSignIn :: Conf -> Text -> ActionM ()
+validateSignIn conf textToken = do
   alreadySigned <- isAlreadySigned
   if alreadySigned
     then
       redirect "/"
     else do
-      mbSignIn <- liftIO . runDb $ getSignInToken textToken
+      mbSignIn <- liftIO . runDb $ getSignIn textToken
       now <- liftIO getCurrentTime
       case mbSignIn of
-        Just signIn ->
-          if signInIsUsed . entityVal $ signIn
+        Just signInValue ->
+          if signInIsUsed . entityVal $ signInValue
             then
               redirectError (getMessage SignInUsed)
             else
-              let diffTime = now `diffUTCTime` (signInCreation . entityVal $ signIn)
-              in  if diffTime > (fromIntegral $ (signInExpirationMn config) * 60)
+              let diffTime = now `diffUTCTime` (signInCreation . entityVal $ signInValue)
+              in  if diffTime > (fromIntegral $ (signInExpirationMn conf) * 60)
                     then
                       redirectError (getMessage SignInExpired)
                     else do
-                      LoginSession.put (signInToken . entityVal $ signIn)
-                      liftIO . runDb . signInTokenToUsed . entityKey $ signIn
+                      LoginSession.put (signInToken . entityVal $ signInValue)
+                      liftIO . runDb . signInTokenToUsed . entityKey $ signInValue
                       redirect "/"
         Nothing ->
           redirectError (getMessage SignInInvalid)
-- 
cgit v1.2.3