    {-# 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 : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `Data.Monoid.mappend` Text
    t
    frenchFormMessage (MsgInvalidNumber Text
    t) = Text
    "Nombre invalide : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    frenchFormMessage (MsgInvalidEntry Text
    t) = Text
    "Entrée invalide : " Text -> Text -> Text
    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 : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    frenchFormMessage (MsgInvalidEmail Text
    t) = Text
    "Adresse électronique invalide : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    frenchFormMessage (MsgInvalidHour Text
    t) = Text
    "Heure invalide : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    frenchFormMessage (MsgInvalidMinute Text
    t) = Text
    "Minutes invalides : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    frenchFormMessage (MsgInvalidSecond Text
    t) = Text
    "Secondes invalides  " Text -> Text -> Text
    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 : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    frenchFormMessage FormMessage
    MsgSelectNone = Text
    "<Rien>"
    frenchFormMessage (MsgInvalidBool Text
    t) = Text
    "Booléen invalide : " Text -> Text -> Text
    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 : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    frenchFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Date/heure non valide. doit être au format AAAA-MM-JJ(T| )HH:MM[:SS] : " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t