diff options
| author | Joris | 2016-04-08 09:46:34 +0200 |
|---|---|---|
| committer | Joris | 2016-04-08 09:46:34 +0200 |
| commit | 06ccc38b65f0f4da2046ac97de447cd1ad061425 (patch) | |
| tree | fa39341fd3b054603c6ca3ac4a7b01650dfb9a2e /src/server | |
| parent | 6541fa5316816d6f97a87a370775cfe278e7eeb8 (diff) | |
Add total payment partition
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 1 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 5 |
2 files changed, 6 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index 43b8faa..6d48682 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -69,6 +69,7 @@ data Key = | Statistics | Overall | ByMonths + | By -- Income diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index d4e5454..e31d2df 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -262,6 +262,11 @@ m l ByMonths = English -> "By months" French -> "Par mois" +m l By = + case l of + English -> "by" + French -> "par" + -- Income m l CumulativeIncomesSince = |