Embedding messages into the page

1 files changed, 80 insertions, 0 deletions

diff --git a/src/server/Model/Message/Translations.hs b/src/server/Model/Message/Translations.hs
new file mode 100644
index 0000000..289b714
--- /dev/null
+++ b/src/server/Model/Message/Translations.hs
@@ -0,0 +1,80 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Model.Message.Translations
+  ( getNonFormattedMessage
+  ) where
+
+import Data.Text (Text)
+
+import Model.Message.Key
+import Model.Message.Lang
+
+getNonFormattedMessage :: Lang -> Key -> Text
+getNonFormattedMessage = m
+
+m :: Lang -> Key -> Text
+
+m l January =
+  case l of
+    English -> "January"
+    French  -> "Janvier"
+
+m l February =
+  case l of
+    English -> "February"
+    French -> "Février"
+
+m l March =
+  case l of
+    English -> "March"
+    French -> "Mars"
+
+m l April =
+  case l of
+    English -> "April"
+    French -> "Avril"
+
+m l May =
+  case l of
+    English -> "May"
+    French -> "Mai"
+
+m l June =
+  case l of
+    English -> "June"
+    French -> "Juin"
+
+m l July =
+  case l of
+    English -> "July"
+    French -> "Juillet"
+
+m l August =
+  case l of
+    English -> "August"
+    French -> "Août"
+
+m l September =
+  case l of
+    English -> "September"
+    French -> "Septembre"
+
+m l October =
+  case l of
+    English -> "October"
+    French -> "Octoble"
+
+m l November =
+  case l of
+    English -> "November"
+    French -> "Novembre"
+
+m l December =
+  case l of
+    English -> "December"
+    French -> "Décembre"
+
+m l Date =
+  case l of
+    English -> "{2} {1}, {3}"
+    French -> "{1} {2} {3}"