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