module Message.Translations
  ( getNonFormattedMessage
  ) where

import Message.Key
import Message.Lang

getNonFormattedMessage :: Lang -> Key -> String
getNonFormattedMessage = m

m :: Lang -> Key -> String

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