blob: 289b7146ce00de4c4dd0b941d0fd1c413891a081 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
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}"
|
