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
---
 common/src/Common/Message/Key.hs         |  2 +-
 common/src/Common/Message/Translation.hs | 12 +++++-------
 2 files changed, 6 insertions(+), 8 deletions(-)

(limited to 'common/src/Common/Message')

diff --git a/common/src/Common/Message/Key.hs b/common/src/Common/Message/Key.hs
index 991c407..ad8a7f1 100644
--- a/common/src/Common/Message/Key.hs
+++ b/common/src/Common/Message/Key.hs
@@ -83,6 +83,7 @@ data Key =
 
   | Payment_Add
   | Payment_Balanced
+  | Payment_By Text Text
   | Payment_Category
   | Payment_CloneLong
   | Payment_CloneShort
@@ -129,7 +130,6 @@ data Key =
 
   | Statistic_Title
   | Statistic_ByMonthsAndMean Text
-  | Statistic_By Text Text
   | Statistic_Total
 
   | WeeklyReport_Empty
diff --git a/common/src/Common/Message/Translation.hs b/common/src/Common/Message/Translation.hs
index 16a56dd..0a6084d 100644
--- a/common/src/Common/Message/Translation.hs
+++ b/common/src/Common/Message/Translation.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
-
 module Common.Message.Translation
   ( get
   ) where
@@ -359,6 +357,11 @@ m l Payment_Balanced =
     English -> "Payments are balanced."
     French  -> "Les paiements sont équilibrés."
 
+m l (Payment_By key value) =
+  case l of
+    English -> T.concat [ key, ": ", value ]
+    French  -> T.concat [ key, " : ", value ]
+
 m l Payment_Category =
   case l of
     English -> "Category"
@@ -584,11 +587,6 @@ m l SignIn_ParseError =
     English -> "Error while reading initial data."
     French  -> "Erreur lors de la lecture des données initiales."
 
-m l (Statistic_By key value) =
-  case l of
-    English -> T.concat [ key, ": ", value ]
-    French  -> T.concat [ key, " : ", value ]
-
 m l (Statistic_ByMonthsAndMean amount) =
   case l of
     English ->
-- 
cgit v1.2.3