diff options
| author | Joris | 2015-09-05 19:03:12 +0200 |
|---|---|---|
| committer | Joris | 2015-09-05 19:03:12 +0200 |
| commit | eb5ecba59887a5d1e74bf6287fabdf8a2979f44c (patch) | |
| tree | 0e3b61002173fb012ad9ddae18632d391330cb50 /src/server/Model | |
| parent | cc6a51b5ca03ee1a3b5de7c32dd1324e1053f42a (diff) | |
Payment frequence choice between either punctual or monthly, UI only
Diffstat (limited to 'src/server/Model')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 2 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 10 |
2 files changed, 12 insertions, 0 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index ce03d34..8a37a2a 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -52,5 +52,7 @@ data Key = | Add | PaymentNotDeleted | MoneySymbol + | Punctual + | Monthly deriving (Enum, Bounded, Show) diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 6c569fd..ec8cf19 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -199,3 +199,13 @@ m l MoneySymbol = case l of English -> "$" French -> "€" + +m l Punctual = + case l of + English -> "Punctual" + French -> "Ponctuel" + +m l Monthly = + case l of + English -> "Monthly" + French -> "Mensuel" |