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