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