Show payment count and partition

- Also fixes exceedingPayer in back by using only punctual payments

1 files changed, 2 insertions, 5 deletions

diff --git a/server/src/Controller/Category.hs b/server/src/Controller/Category.hs
index a646496..5565b43 100644
--- a/server/src/Controller/Category.hs
+++ b/server/src/Controller/Category.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module Controller.Category
   ( create
   , edit
@@ -11,10 +9,9 @@ import qualified Data.Text.Lazy            as TL
 import           Network.HTTP.Types.Status (badRequest400, ok200)
 import           Web.Scotty                hiding (delete)
 
-import qualified Common.Message            as Message
-import qualified Common.Message.Key        as Key
 import           Common.Model              (CategoryId, CreateCategory (..),
                                             EditCategory (..))
+import qualified Common.Msg                as Msg
 
 import           Json                      (jsonId)
 import qualified Model.Category            as Category
@@ -50,5 +47,5 @@ delete categoryId =
         status ok200
       else do
         status badRequest400
-        text . TL.fromStrict $ Message.get Key.Category_NotDeleted
+        text . TL.fromStrict $ Msg.get Msg.Category_NotDeleted
   )