diff options
Diffstat (limited to 'src/server/Model/Message')
| -rw-r--r-- | src/server/Model/Message/Key.hs | 3 | ||||
| -rw-r--r-- | src/server/Model/Message/Translations.hs | 7 |
2 files changed, 8 insertions, 2 deletions
diff --git a/src/server/Model/Message/Key.hs b/src/server/Model/Message/Key.hs index d4d31f3..ce03d34 100644 --- a/src/server/Model/Message/Key.hs +++ b/src/server/Model/Message/Key.hs @@ -38,7 +38,8 @@ data Key = | November | December - | Date + | ShortDate + | LongDate -- Validation diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs index 93d264f..9b9aafd 100644 --- a/src/server/Model/Message/Translations.hs +++ b/src/server/Model/Message/Translations.hs @@ -156,7 +156,12 @@ m l December = English -> "December" French -> "Décembre" -m l Date = +m l ShortDate = + case l of + English -> "{3}-{2}-{1}" + French -> "{1}/{2}/{3}" + +m l LongDate = case l of English -> "{2} {1}, {3}" French -> "{1} {2} {3}" |