    {-# LANGUAGE OverloadedStrings #-}
    module Yesod.Form.I18n.English where

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

    englishFormMessage :: FormMessage -> Text
    englishFormMessage :: FormMessage -> Text
    englishFormMessage (MsgInvalidInteger Text
    t) = Text
    "Invalid integer: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `Data.Monoid.mappend` Text
    t
    englishFormMessage (MsgInvalidNumber Text
    t) = Text
    "Invalid number: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage (MsgInvalidEntry Text
    t) = Text
    "Invalid entry: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage FormMessage
    MsgInvalidTimeFormat = Text
    "Invalid time, must be in HH:MM[:SS] format"
    englishFormMessage FormMessage
    MsgInvalidDay = Text
    "Invalid day, must be in YYYY-MM-DD format"
    englishFormMessage (MsgInvalidUrl Text
    t) = Text
    "Invalid URL: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage (MsgInvalidEmail Text
    t) = Text
    "Invalid e-mail address: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage (MsgInvalidHour Text
    t) = Text
    "Invalid hour: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage (MsgInvalidMinute Text
    t) = Text
    "Invalid minute: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage (MsgInvalidSecond Text
    t) = Text
    "Invalid second: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage FormMessage
    MsgCsrfWarning = Text
    "As a protection against cross-site request forgery attacks, please confirm your form submission."
    englishFormMessage FormMessage
    MsgValueRequired = Text
    "Value is required"
    englishFormMessage (MsgInputNotFound Text
    t) = Text
    "Input not found: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage FormMessage
    MsgSelectNone = Text
    "<None>"
    englishFormMessage (MsgInvalidBool Text
    t) = Text
    "Invalid boolean: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage FormMessage
    MsgBoolYes = Text
    "Yes"
    englishFormMessage FormMessage
    MsgBoolNo = Text
    "No"
    englishFormMessage FormMessage
    MsgDelete = Text
    "Delete?"
    englishFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Invalid color, must be in #rrggbb hexadecimal format: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    englishFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Invalid datetime, must be in YYYY-MM-DD(T| )HH:MM[:SS] format: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t