blob: 2cc1761ec1b33593596d7355b39e5f93271f8976 (
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
{-# 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 SharedCost =
case l of
English -> "Shared Cost"
French -> "Partage des frais"
m l SignIn =
case l of
English -> "Sign in"
French -> "Connexion"
m l SendEmailFail =
case l of
English -> "Sorry, we failed to send you the sign up email."
French -> "Désolé, nous n'avons pas pu vous envoyer le courriel de connexion."
m l Unauthorized =
case l of
English -> "You are not authorized to sign in."
French -> "Vous n'êtes pas authorisé à vous connecter."
m l EnterValidEmail =
case l of
English -> "Please enter a valid email address."
French -> "Entrez s'il vous plait un email valide."
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}"
|
