diff options
| author | Joris | 2015-09-03 21:56:17 +0200 |
|---|---|---|
| committer | Joris | 2015-09-03 21:56:17 +0200 |
| commit | ebd304d97b612d0ac4ea276b1c29ba8ecc0b7998 (patch) | |
| tree | 31f2d80792228b399e0a8a93f4ad15b629d5ebe2 /src/server/Model | |
| parent | c7ca925e44c118189b6f27c40955640090f6cd20 (diff) | |
Adapting design to smaller screens
Diffstat (limited to 'src/server/Model')
| -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}" |