aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Model')
-rw-r--r--src/server/Model/Message/Key.hs3
-rw-r--r--src/server/Model/Message/Translations.hs7
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}"