diff options
| author | Joris | 2017-03-26 21:10:42 +0200 |
|---|---|---|
| committer | Joris | 2017-03-26 21:10:42 +0200 |
| commit | 1e47a7754ca38bd1a6c74765d8378caf68ce4619 (patch) | |
| tree | d0d9238479dc2529a1b558bbbcde346e7e8c2935 /src/server/Model | |
| parent | c0ac16a713c4e53cf6af8e72a6d5f6b8ac5d6456 (diff) | |
Separate client and server watch
Diffstat (limited to 'src/server/Model')
| -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 36b3ba0..79ccf39 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -127,6 +127,7 @@ data Key = | Empty | InvalidString | InvalidDate + | CostMustNotBeNull | InvalidInt | InvalidCategory | SmallerIntThan diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 6565344..16fc3fd 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -498,6 +498,11 @@ m l InvalidDate = English -> "day/month/year required" French -> "jour/mois/année requis" +m l CostMustNotBeNull = + case l of + English -> "Cost must not be zero" + French -> "Le coût ne doît pas être nul" + m l InvalidInt = case l of English -> "Integer required" |