diff --git a/yesod-auth/Yesod/Auth/Message.hs b/yesod-auth/Yesod/Auth/Message.hs
index 383ef98f..f22e5962 100644
--- a/yesod-auth/Yesod/Auth/Message.hs
+++ b/yesod-auth/Yesod/Auth/Message.hs
@@ -8,6 +8,7 @@ module Yesod.Auth.Message
     , portugueseMessage
     , swedishMessage
     , germanMessage
+    , frenchMessage
     ) where
 
 import Data.Monoid (mappend)
@@ -183,3 +184,39 @@ germanMessage NowLoggedIn = "Login erfolgreich"
 germanMessage LoginTitle = "Login"
 germanMessage PleaseProvideUsername = "Bitte Nutzername angeben"
 germanMessage PleaseProvidePassword = "Bitte Passwort angeben"
+
+
+
+frenchMessage :: AuthMessage -> Text
+frenchMessage NoOpenID = "Aucun fournisseur OpenID n'a été trouvé"
+frenchMessage LoginOpenID = "Se connecter avec OpenID"
+frenchMessage LoginGoogle = "Se connecter avec Google"
+frenchMessage LoginYahoo = "Se connecter avec Yahoo"
+frenchMessage Email = "Adresse électronique"
+frenchMessage Password = "Mot de passe"
+frenchMessage Register = "S'inscrire"
+frenchMessage RegisterLong = "Créer un compte"
+frenchMessage EnterEmail = "Entrez ci-dessous votre adresse électronique, et un message de confirmation vous sera envoyé"
+frenchMessage ConfirmationEmailSentTitle = "Message de confirmation"
+frenchMessage (ConfirmationEmailSent email) =
+    "Un message de confirmation a été envoyé à " `mappend`
+    email `mappend`
+    "."
+frenchMessage AddressVerified = "Votre adresse électronique a été validée, merci de choisir un nouveau mot de passe."
+frenchMessage InvalidKeyTitle = "Clef de validation incorrecte"
+frenchMessage InvalidKey = "Désolé, mais cette clef de validation est incorrecte"
+frenchMessage InvalidEmailPass = "Le couple mot de passe/adresse électronique n'est pas correct"
+frenchMessage BadSetPass = "Vous devez être connecté pour choisir un mot de passe"
+frenchMessage SetPassTitle = "Changer de mot de passe"
+frenchMessage SetPass = "Choisir un nouveau mot de passe"
+frenchMessage NewPass = "Nouveau mot de passe"
+frenchMessage ConfirmPass = "Confirmation du mot de passe"
+frenchMessage PassMismatch = "Le deux mots de passe sont différents, veuillez les corriger"
+frenchMessage PassUpdated = "Le mot de passe a bien été changé"
+frenchMessage Facebook = "Se connecter avec Facebook"
+frenchMessage LoginViaEmail = "Se connecter à l'aide d'une adresse électronique"
+frenchMessage InvalidLogin = "Nom d'utilisateur incorrect"
+frenchMessage NowLoggedIn = "Vous êtes maintenant connecté"
+frenchMessage LoginTitle = "Se connecter"
+frenchMessage PleaseProvideUsername = "Merci de renseigner votre nom d'utilisateur"
+frenchMessage PleaseProvidePassword = "Merci de spécifier un mot de passe"
diff --git a/yesod-form/Yesod/Form/I18n/French.hs b/yesod-form/Yesod/Form/I18n/French.hs
new file mode 100644
index 00000000..ce971ac4
--- /dev/null
+++ b/yesod-form/Yesod/Form/I18n/French.hs
@@ -0,0 +1,26 @@
+{-# 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 (MsgInvalidInteger t) = "Entier invalide : " `mappend` t
+frenchFormMessage (MsgInvalidNumber t) = "Nombre invalide : " `mappend` t
+frenchFormMessage (MsgInvalidEntry t) = "Entrée invalide : " `mappend` 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) = "Adresse Internet invalide : " `mappend` t
+frenchFormMessage (MsgInvalidEmail t) = "Adresse électronique invalide : " `mappend` t
+frenchFormMessage (MsgInvalidHour t) = "Heure invalide : " `mappend` t
+frenchFormMessage (MsgInvalidMinute t) = "Minutes invalides : " `mappend` t
+frenchFormMessage (MsgInvalidSecond t) = "Secondes invalides  " `mappend` t
+frenchFormMessage MsgCsrfWarning = "Afin d'empêcher les attaques CSRF, veuillez ré-envoyer ce formulaire"
+frenchFormMessage MsgValueRequired = "Ce champ est requis"
+frenchFormMessage (MsgInputNotFound t) = "Entrée non trouvée : " `mappend` t
+frenchFormMessage MsgSelectNone = "<Rien>"
+frenchFormMessage (MsgInvalidBool t) = "Booléen invalide : " `mappend` t
+frenchFormMessage MsgBoolYes = "Oui"
+frenchFormMessage MsgBoolNo = "Non"
+frenchFormMessage MsgDelete = "Détruire ?"
diff --git a/yesod-form/yesod-form.cabal b/yesod-form/yesod-form.cabal
index ecaa476e..40ba39a7 100644
--- a/yesod-form/yesod-form.cabal
+++ b/yesod-form/yesod-form.cabal
@@ -46,6 +46,7 @@ library
                      Yesod.Form.I18n.Portuguese
                      Yesod.Form.I18n.Swedish
                      Yesod.Form.I18n.German
+                     Yesod.Form.I18n.French
                      -- FIXME Yesod.Helpers.Crud
     ghc-options:     -Wall