From ebd304d97b612d0ac4ea276b1c29ba8ecc0b7998 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 3 Sep 2015 21:56:17 +0200
Subject: Adapting design to smaller screens

---
 src/server/Model/Message/Key.hs          | 3 ++-
 src/server/Model/Message/Translations.hs | 7 ++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

(limited to 'src/server/Model')

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}"
-- 
cgit v1.2.3