From 7194cddb28656c721342c2ef604f9f9fb0692960 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 19 Nov 2017 00:20:25 +0100
Subject: Show payment count and partition

- Also fixes exceedingPayer in back by using only punctual payments
---
 server/src/Controller/SignIn.hs | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

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

diff --git a/server/src/Controller/SignIn.hs b/server/src/Controller/SignIn.hs
index 5552781..cf92c9f 100644
--- a/server/src/Controller/SignIn.hs
+++ b/server/src/Controller/SignIn.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module Controller.SignIn
   ( signIn
   ) where
@@ -11,9 +9,8 @@ import qualified Data.Text.Lazy            as TL
 import           Network.HTTP.Types.Status (badRequest400, ok200)
 import           Web.Scotty
 
-import qualified Common.Message            as Message
-import qualified Common.Message.Key        as Key
 import           Common.Model              (SignIn (..))
+import qualified Common.Msg                as Msg
 
 import           Conf                      (Conf)
 import qualified Conf
@@ -40,8 +37,8 @@ signIn conf (SignIn email) =
                     ]
           maybeSentMail <- liftIO . SendMail.sendMail $ SignIn.mail conf user url [email]
           case maybeSentMail of
-            Right _ -> textKey ok200 Key.SignIn_EmailSent
-            Left _  -> textKey badRequest400 Key.SignIn_EmailSendFail
-        Nothing -> textKey badRequest400 Key.Secure_Unauthorized
-    else textKey badRequest400 Key.SignIn_EmailInvalid
-  where textKey st key = status st >> (text . TL.fromStrict $ Message.get key)
+            Right _ -> textKey ok200 Msg.SignIn_EmailSent
+            Left _  -> textKey badRequest400 Msg.SignIn_EmailSendFail
+        Nothing -> textKey badRequest400 Msg.Secure_Unauthorized
+    else textKey badRequest400 Msg.SignIn_EmailInvalid
+  where textKey st key = status st >> (text . TL.fromStrict $ Msg.get key)
-- 
cgit v1.2.3