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