{-# LANGUAGE OverloadedStrings #-}
module Yesod.Form.I18n.French (frenchFormMessage) where

import Yesod.Form.Types (FormMessage (..))
import Data.Monoid (mappend)
import Data.Text (Text)

frenchFormMessage :: FormMessage -> Text
frenchFormMessage :: FormMessage -> Text
frenchFormMessage (MsgInvalidInteger t :: Text
t) = "Entier invalide : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
frenchFormMessage (MsgInvalidNumber t :: Text
t) = "Nombre invalide : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage (MsgInvalidEntry t :: Text
t) = "Entrée invalide : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage MsgInvalidTimeFormat = "Heure invalide (elle doit être au format HH:MM ou HH:MM:SS"
frenchFormMessage MsgInvalidDay = "Date invalide (elle doit être au format AAAA-MM-JJ"
frenchFormMessage (MsgInvalidUrl t :: Text
t) = "Adresse Internet invalide : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage (MsgInvalidEmail t :: Text
t) = "Adresse électronique invalide : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage (MsgInvalidHour t :: Text
t) = "Heure invalide : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage (MsgInvalidMinute t :: Text
t) = "Minutes invalides : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage (MsgInvalidSecond t :: Text
t) = "Secondes invalides  " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage MsgCsrfWarning = "Afin d'empêcher les attaques CSRF, veuillez ré-envoyer ce formulaire"
frenchFormMessage MsgValueRequired = "Ce champ est requis"
frenchFormMessage (MsgInputNotFound t :: Text
t) = "Entrée non trouvée : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage MsgSelectNone = "<Rien>"
frenchFormMessage (MsgInvalidBool t :: Text
t) = "Booléen invalide : " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
frenchFormMessage MsgBoolYes = "Oui"
frenchFormMessage MsgBoolNo = "Non"
frenchFormMessage MsgDelete = "Détruire ?"