1 files changed, 0 insertions, 76 deletions
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}"