From a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 10 Aug 2015 23:30:31 +0200
Subject: Embedding messages into the page

---
 src/server/Message/Key.hs          | 20 ----------
 src/server/Message/Lang.hs         |  5 ---
 src/server/Message/Translations.hs | 76 --------------------------------------
 3 files changed, 101 deletions(-)
 delete mode 100644 src/server/Message/Key.hs
 delete mode 100644 src/server/Message/Lang.hs
 delete 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
deleted file mode 100644
index 407ba34..0000000
--- a/src/server/Message/Key.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-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
deleted file mode 100644
index e9519f1..0000000
--- a/src/server/Message/Lang.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module Message.Lang
-  ( Lang(..)
-  ) where
-
-data Lang = English | French
diff --git a/src/server/Message/Translations.hs b/src/server/Message/Translations.hs
deleted file mode 100644
index f16ffe1..0000000
--- a/src/server/Message/Translations.hs
+++ /dev/null
@@ -1,76 +0,0 @@
-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