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