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/Income.hs | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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

diff --git a/server/src/Controller/Income.hs b/server/src/Controller/Income.hs
index c42f6a7..19f0cfc 100644
--- a/server/src/Controller/Income.hs
+++ b/server/src/Controller/Income.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module Controller.Income
   ( create
   , editOwn
@@ -11,10 +9,9 @@ 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              (CreateIncome (..), EditIncome (..),
                                             IncomeId, User (..))
+import qualified Common.Msg                as Msg
 
 import           Json                      (jsonId)
 import qualified Model.Income              as Income
@@ -45,5 +42,5 @@ deleteOwn incomeId =
         status ok200
       else do
         status badRequest400
-        text . TL.fromStrict $ Message.get Key.Income_NotDeleted
+        text . TL.fromStrict $ Msg.get Msg.Income_NotDeleted
   )
-- 
cgit v1.2.3