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