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