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