path: root/src/server/Model/Message/Translations.hs

{-# 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"

-- 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 Forbidden =
  case l of
    English -> "You need to be logged in to perform this action"
    French  -> "Tu dois te connecter pour effectuer cette action"

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}"

-- Search

m l SearchName =
  case l of
    English -> "Search"
    French  -> "Recherche"

m l SearchPunctual =
  case l of
    English -> "Punctual"
    French  -> "Ponctuel"

m l SearchMonthly =
  case l of
    English -> "Monthly"
    French  -> "Mensuel"

-- Payments

m l PaymentsAreBalanced =
  case l of
    English -> "Payments are balanced."
    French  -> "Les paiements sont équilibrés."

m l Name =
  case l of
    English -> "Name"
    French  -> "Nom"

m l Cost =
  case l of
    English -> "Cost"
    French  -> "Coût"

m l Payer =
  case l of
    English -> "Payer"
    French  -> "Payeur"

m l Date =
  case l of
    English -> "Date"
    French  -> "Date"

m l Frequency =
  case l of
    English -> "Frequency"
    French  -> "Fréquence"

m l InvalidFrequency =
  case l of
    English -> "Invalid frequency"
    French  -> "Fréquence invalide"

m l AddPayment =
  case l of
    English -> "Add a payment"
    French  -> "Ajouter un paiement"

m l ClonePayment =
  case l of
    English -> "Clone a payment"
    French  -> "Cloner un paiement"

m l EditPayment =
  case l of
    English -> "Edit a payment"
    French  -> "Modifier un paiement"

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  -> "Ponctuelle"

m l Monthly =
  case l of
    English -> "Monthly"
    French  -> "Mensuelle"

m l PaymentsTitle =
  case l of
    English -> "Payments"
    French -> "Paiements"

m l Payment =
  case l of
    English -> "payment"
    French  -> "paiement"

m l Payments =
  case l of
    English -> "payments"
    French  -> "paiements"

m l Worth =
  case l of
    English -> "{1} worth {2}"
    French  -> "{1} comptabilisant {2}"

m l NoPayment =
  case l of
    English -> "No payment found from your search criteria."
    French  -> "Aucun paiement ne correspond à vos critères de recherches."

-- Statistics

m l Statistics =
  case l of
    English -> "Statistics"
    French  -> "Statistiques"

m l ByMonthsAndMean =
  case l of
    English -> "By months ({1} on average)"
    French  -> "Par mois (en moyenne {1})"

m l By =
  case l of
    English -> "{1}: {2}"
    French  -> "{1} : {2}"

m l PaymentName =
  case l of
    English -> "Name"
    French  -> "Nom"

m l PaymentCost =
  case l of
    English -> "Cost"
    French  -> "Coût"

m l PaymentPunctual =
  case l of
    English -> "Punctual"
    French  -> "Ponctuel"

m l PaymentMonthly =
  case l of
    English -> "Monthly"
    French  -> "Mensuel"

m l ConfirmPaymentDelete =
  case l of
    English -> "Are you sure to delete this payment ?"
    French  -> "Voulez-vous vraiment supprimer ce paiement ?"

m l Edit =
  case l of
    English -> "Edit"
    French  -> "Modifier"

m l Clone =
  case l of
    English -> "Clone"
    French  -> "Cloner"

m l Delete =
  case l of
    English -> "Delete"
    French  -> "Supprimer"

-- Income

m l CumulativeIncomesSince =
  case l of
    English -> "Cumulative incomes since {1}"
    French  -> "Revenus nets cumulés depuis le {1}"

m l Income =
  case l of
    English -> "Income"
    French  -> "Revenu"

m l MonthlyNetIncomes =
  case l of
    English -> "Net monthly incomes"
    French  -> "Revenus mensuels nets"

m l AddIncome =
  case l of
    English -> "Add an income"
    French  -> "Ajouter un revenu"

m l CloneIncome =
  case l of
    English -> "Clone an income"
    French  -> "Cloner un revenu"

m l EditIncome =
  case l of
    English -> "Edit an income"
    French  -> "Modifier un revenu"

m l IncomeNotDeleted =
  case l of
    English -> "The income could not have been deleted."
    French  -> "Le revenu n'a pas pu être supprimé."

m l IncomeAmount =
  case l of
    English -> "Amount"
    French  -> "Montant"

m l ConfirmIncomeDelete =
  case l of
    English -> "Are you sure to delete this income ?"
    French  -> "Voulez-vous vraiment supprimer ce revenu ?"

m l Add =
  case l of
    English -> "Add"
    French  -> "Ajouter"

-- Form error

m l Empty =
  case l of
    English -> "Required field"
    French  -> "Champ requis"

m l InvalidString =
  case l of
    English -> "String required"
    French  -> "Chaîne de caractères requise"

m l InvalidDate =
  case l of
    English -> "day/month/year required"
    French  -> "jour/mois/année requis"

m l InvalidInt =
  case l of
    English -> "Integer required"
    French  -> "Entier requis"

m l SmallerIntThan =
  case l of
    English -> "Integer bigger than {1} or equal required"
    French  -> "Entier supérieur ou égal à {1} requis"

m l GreaterIntThan =
  case l of
    English -> "Integer smaller than {1} or equal required"
    French  -> "Entier inférieur ou égal à {1} requis"

-- Errors

m l CreatePaymentError =
  case l of
    English -> "Error at payment creation"
    French  -> "Erreur lors de la création du paiement"

m l EditPaymentError =
  case l of
    English -> "Error at payment edition"
    French  -> "Erreur lors de la modification du paiement"

m l DeletePaymentError =
  case l of
    English -> "Error at payment deletion"
    French  -> "Erreur lors de la suppression du paiement"

m l CreateIncomeError =
  case l of
    English -> "Error at income creation"
    French  -> "Erreur lors de la création du revenu"

m l EditIncomeError =
  case l of
    English -> "Error at income edition"
    French  -> "Erreur lors de la modification du revenu"

m l DeleteIncomeError =
  case l of
    English -> "Error at income deletion"
    French  -> "Erreur lors de la suppression du revenu"

m l SignOutError =
  case l of
    English -> "Error at sign out"
    French  -> "Erreur lors de la déconnexion"

-- Dialog

m l Confirm =
  case l of
    English -> "Confirm"
    French  -> "Confirmer"

m l Undo =
  case l of
    English -> "Undo"
    French  -> "Annuler"

-- Weekly report

m l WeeklyReport =
  case l of
    English -> "Weekly report"
    French  -> "Rapport hebdomadaire"

m l PaymentCreated =
  case l of
    English -> "{1} payment created:"
    French  -> "{1} paiement créé :"

m l PaymentsCreated =
  case l of
    English -> "{1} payments created:"
    French  -> "{1} paiements créés :"

m l PaymentEdited =
  case l of
    English -> "{1} payment edited:"
    French  -> "{1} paiement modifié :"

m l PaymentsEdited =
  case l of
    English -> "{1} payments edited:"
    French  -> "{1} paiements modifiés :"

m l PaymentDeleted =
  case l of
    English -> "{1} payment deleted:"
    French  -> "{1} paiement supprimé :"

m l PaymentsDeleted =
  case l of
    English -> "{1} payments deleted:"
    French  -> "{1} paiements supprimés :"

m l IncomeCreated =
  case l of
    English -> "{1} income created:"
    French  -> "{1} revenu créé :"

m l IncomesCreated =
  case l of
    English -> "{1} incomes created:"
    French  -> "{1} revenus créés :"

m l IncomeEdited =
  case l of
    English -> "{1} income edited:"
    French  -> "{1} revenu modifié :"

m l IncomesEdited =
  case l of
    English -> "{1} incomes edited:"
    French  -> "{1} revenus modifiés :"

m l IncomeDeleted =
  case l of
    English -> "{1} income deleted:"
    French  -> "{1} revenu supprimé :"

m l IncomesDeleted =
  case l of
    English -> "{1} incomes deleted:"
    French  -> "{1} revenus supprimés :"

m l PayedFor =
  case l of
    English -> "{1} payed {2} for “{3}” at {4}"
    French  -> "{1} a payé {2} concernant « {3} » le {4}"

m l DidNotPayFor =
  case l of
    English -> "{1} didn't pay {2} for “{3}” at {4}"
    French  -> "{1} n'a pas payé {2} concernant « {3} » le {4}"

m l IsPayedFrom =
  case l of
    English -> "{1} is payed {2} of net monthly income from {3}"
    French  -> "{1} est payé {2} net par mois à partir du {3}"

m l IsNotPayedFrom =
  case l of
    English -> "{1} isn't payed {2} of net monthly income from {3}"
    French  -> "{1} n'est pas payé {2} net par mois à partir du {3}"

-- 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"