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/Secure.hs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

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

diff --git a/server/src/Secure.hs b/server/src/Secure.hs
index 88bdcda..6e5b998 100644
--- a/server/src/Secure.hs
+++ b/server/src/Secure.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module Secure
   ( loggedAction
   , getUserFromToken
@@ -11,9 +9,8 @@ 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.Msg                as Msg
 
 import qualified LoginSession
 import           Model.Query               (Query)
@@ -32,10 +29,10 @@ loggedAction action = do
           action user
         Nothing -> do
           status forbidden403
-          html . fromStrict . Message.get $ Key.Secure_Unauthorized
+          html . fromStrict . Msg.get $ Msg.Secure_Unauthorized
     Nothing -> do
       status forbidden403
-      html . fromStrict . Message.get $ Key.Secure_Forbidden
+      html . fromStrict . Msg.get $ Msg.Secure_Forbidden
 
 getUserFromToken :: Text -> Query (Maybe User)
 getUserFromToken token = do
-- 
cgit v1.2.3