{-# LANGUAGE OverloadedStrings #-} module Model.Message.Translations ( getNonFormattedMessage ) where import Data.Text (Text) import qualified Data.Text as T import Model.Message.Key import Model.Message.Lang getNonFormattedMessage :: Lang -> Key -> Text getNonFormattedMessage = m m :: Lang -> Key -> Text -- Title m l SharedCost = case l of English -> "Shared Cost" French -> "Partage des frais" -- Email m l NoReplyMail = case l of English -> "no-reply@cost.guyonvarch.me" French -> "pas-de-reponse@cost.guyonvarch.me" -- Sign in m l Email = case l of English -> "Email" French -> "Courriel" m l SignIn = case l of English -> "Sign in" French -> "Connexion" m l InvalidEmail = case l of English -> "Your email is not valid." French -> "Votre courriel n'est pas valide." m l UnauthorizedSignIn = case l of English -> "You are not authorized to sign in." French -> "Tu n'es pas autorisé à te connecter." m l SendEmailFail = case l of English -> "You are authorized to sign in, but we failed to send you the sign up email." French -> "Tu es autorisé à te connecter, mais nous n'avons pas pu t'envoyer le courriel de connexion." m l EnterValidEmail = case l of English -> "Please enter a valid email address." French -> "Ton courriel n'est pas valide." m l SignInUsed = case l of English -> "You already used this link, please sign in again." French -> "Tu as déjà utilisé ce lien, connecte-toi à nouveau." m l SignInExpired = case l of English -> "The link expired, please sign in again." French -> "Le lien sur lequel tu as cliqué a expiré, connecte-toi à nouveau." m l SignInInvalid = case l of English -> "The link is invalid, please sign in again." French -> "Le lien sur lequel tu as cliqué est invalide, connecte-toi à nouveau." m l SignInMailTitle = case l of English -> T.concat ["Sign in to ", m l SharedCost] French -> T.concat ["Connexion à ", m l SharedCost] m l SignInMail = T.intercalate "\n" ( case l of English -> [ "Hi {1}," , "" , T.concat [ "Click to the following link in order to sign in to Shared Cost:" , m l SharedCost , ":" ] , "{2}" , "" , "See you soon!" ] French -> [ "Salut {1}," , "" , T.concat [ "Clique sur le lien suivant pour te connecter à " , m l SharedCost , ":" ] , "{2}" , "" , "À très vite !" ] ) m l SignInEmailSent = case l of English -> "We sent you an email with a connexion link." French -> "Nous t'avons envoyé un courriel avec un lien pour te connecter." -- Date 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 -> "Octobre" m l November = case l of English -> "November" French -> "Novembre" m l December = case l of English -> "December" French -> "Décembre" m l ShortDate = case l of English -> "{3}-{2}-{1}" French -> "{1}/{2}/{3}" m l LongDate = case l of English -> "{2} {1}, {3}" French -> "{1} {2} {3}" -- Validation m l CategoryRequired = case l of English -> "Type a category." French -> "Entre une catégorie." m l CostRequired = case l of English -> "Type a positive cost." French -> "Entre un coût positif." m l IncomeRequired = case l of English -> "Type an income." French -> "Entre un revenu." m l IncomeMustBeNonNullNumber = case l of English -> "The income must be a non-null integer." French -> "Le revenu doit être un entier non nul." m l IncomeMustBePositiveNumber = case l of English -> "The income must be a positive integer." French -> "Le revenu doit être un entier positif." -- Payments m l Add = case l of English -> "Add" French -> "Ajouter" m l PaymentNotDeleted = case l of English -> "The payment could not have been deleted." French -> "Le paiement n'a pas pu être supprimé." m l Punctual = case l of English -> "Punctual" French -> "Ponctuel" m l Monthly = case l of English -> "Monthly" French -> "Mensuel" m l SingularMonthlyCount = T.concat [ case l of English -> "{1} monthly payment of {2}" French -> "{1} paiement mensuel de {2}" ] m l PluralMonthlyCount = T.concat [ case l of English -> "{1} monthly payments totalling {2}" French -> "{1} paiements mensuels comptabilisant {2}" ] -- Income m l Income = T.concat [ case l of English -> "Monthly net income: {1}" French -> "Revenu mensuel net : {1}" ] m l NoIncome = case l of English -> "Income not given" French -> "Revenu non renseigné" m l Edit = case l of English -> "Edit" French -> "Éditer" m l Validate = case l of English -> "Validate" French -> "Valider" m l Undo = case l of English -> "Undo" French -> "Annuler" m l NewIncome = case l of English -> "New income" French -> "Nouveau revenu" -- Http error m l Timeout = case l of English -> "Timeout server error" French -> "Le serveur met trop de temps à répondre" m l NetworkError = case l of English -> "Network can not be reached" French -> "Le serveur n'est pas accessible" m l UnexpectedPayload = case l of English -> "Unexpected payload server error" French -> "Contenu inattendu du en provenance du serveur"