{-# LANGUAGE OverloadedStrings #-}

module Yesod.Form.I18n.Spanish where

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

spanishFormMessage :: FormMessage -> Text
spanishFormMessage :: FormMessage -> Text
spanishFormMessage (MsgInvalidInteger t :: Text
t) = "Número entero inválido: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
spanishFormMessage (MsgInvalidNumber t :: Text
t) = "Número inválido: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage (MsgInvalidEntry t :: Text
t) = "Entrada inválida: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage MsgInvalidTimeFormat = "Hora inválida, debe tener el formato HH:MM[:SS]"
spanishFormMessage MsgInvalidDay = "Fecha inválida, debe tener el formato AAAA-MM-DD"
spanishFormMessage (MsgInvalidUrl t :: Text
t) = "URL inválida: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage (MsgInvalidEmail t :: Text
t) = "Dirección de correo electrónico inválida: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage (MsgInvalidHour t :: Text
t) = "Hora inválida: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage (MsgInvalidMinute t :: Text
t) = "Minuto inválido: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage (MsgInvalidSecond t :: Text
t) = "Segundo inválido: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage MsgCsrfWarning = "Como protección contra ataques CSRF, confirme su envío por favor."
spanishFormMessage MsgValueRequired = "Se requiere un valor"
spanishFormMessage (MsgInputNotFound t :: Text
t) = "Entrada no encontrada: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage MsgSelectNone = "<Ninguno>"
spanishFormMessage (MsgInvalidBool t :: Text
t) = "Booleano inválido: " Text -> Text -> Text
forall a. Monoid a => a -> a -> a
`mappend` Text
t
spanishFormMessage MsgBoolYes = "Sí"
spanishFormMessage MsgBoolNo = "No"
spanishFormMessage MsgDelete = "¿Eliminar?"