aboutsummaryrefslogtreecommitdiff
path: root/src/server/Message/Translations.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Message/Translations.hs')
-rw-r--r--src/server/Message/Translations.hs76
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}"