From f860b59644e84b84b6d7b4af309161ca7c5499ee Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 10 Aug 2015 21:56:58 +0200
Subject: Adding a message structure server side

---
 src/server/Message/Key.hs          | 20 ++++++++++
 src/server/Message/Lang.hs         |  5 +++
 src/server/Message/Translations.hs | 76 ++++++++++++++++++++++++++++++++++++++
 3 files changed, 101 insertions(+)
 create mode 100644 src/server/Message/Key.hs
 create mode 100644 src/server/Message/Lang.hs
 create mode 100644 src/server/Message/Translations.hs

(limited to 'src/server/Message')

diff --git a/src/server/Message/Key.hs b/src/server/Message/Key.hs
new file mode 100644
index 0000000..407ba34
--- /dev/null
+++ b/src/server/Message/Key.hs
@@ -0,0 +1,20 @@
+module Message.Key
+  ( Key(..)
+  ) where
+
+data Key =
+
+  January
+  | February
+  | March
+  | April
+  | May
+  | June
+  | July
+  | August
+  | September
+  | October
+  | November
+  | December
+
+  | Date
diff --git a/src/server/Message/Lang.hs b/src/server/Message/Lang.hs
new file mode 100644
index 0000000..e9519f1
--- /dev/null
+++ b/src/server/Message/Lang.hs
@@ -0,0 +1,5 @@
+module Message.Lang
+  ( Lang(..)
+  ) where
+
+data Lang = English | French
diff --git a/src/server/Message/Translations.hs b/src/server/Message/Translations.hs
new file mode 100644
index 0000000..f16ffe1
--- /dev/null
+++ b/src/server/Message/Translations.hs
@@ -0,0 +1,76 @@
+module Message.Translations
+  ( getNonFormattedMessage
+  ) where
+
+import Message.Key
+import Message.Lang
+
+getNonFormattedMessage :: Lang -> Key -> String
+getNonFormattedMessage = m
+
+m :: Lang -> Key -> String
+
+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}"
-- 
cgit v1.2.3