diff options
| author | Joris | 2018-10-28 17:57:58 +0100 |
|---|---|---|
| committer | Joris | 2018-10-28 17:57:58 +0100 |
| commit | 40b4994797a797b1fa86cafda789a5c488730c6d (patch) | |
| tree | ad195b31fa442821b9de8f99364e254f0f41935f /common/src/Common/Message | |
| parent | df83b634006c699cfa1e921bf74ce951a906a62f (diff) | |
Delete payment
Diffstat (limited to 'common/src/Common/Message')
| -rw-r--r-- | common/src/Common/Message/Key.hs | 4 | ||||
| -rw-r--r-- | common/src/Common/Message/Translation.hs | 12 |
2 files changed, 8 insertions, 8 deletions
diff --git a/common/src/Common/Message/Key.hs b/common/src/Common/Message/Key.hs index a6828d5..6e5f246 100644 --- a/common/src/Common/Message/Key.hs +++ b/common/src/Common/Message/Key.hs @@ -38,8 +38,8 @@ data Key = | Error_SignOut | Form_AlreadyExists - | Form_CostMustNotBeNull - | Form_Empty + | Form_NonEmpty + | Form_NonNullNumber | Form_GreaterIntThan Int | Form_InvalidCategory | Form_InvalidColor diff --git a/common/src/Common/Message/Translation.hs b/common/src/Common/Message/Translation.hs index 5ea12ad..70eb978 100644 --- a/common/src/Common/Message/Translation.hs +++ b/common/src/Common/Message/Translation.hs @@ -157,16 +157,16 @@ m l Form_AlreadyExists = English -> "Dupplicate field" French -> "Doublon" -m l Form_CostMustNotBeNull = - case l of - English -> "Cost must not be zero" - French -> "Le coût ne doît pas être nul" - -m l Form_Empty = +m l Form_NonEmpty = case l of English -> "Required field" French -> "Champ requis" +m l Form_NonNullNumber = + case l of + English -> "Number must not be null" + French -> "Le nombre ne doit pas être nul" + m l (Form_GreaterIntThan number) = case l of English -> T.concat [ "Integer smaller than ", T.pack . show $ number, " or equal required" ] |