    {-# 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?"
    spanishFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Color no válido, debe estar en formato hexadecimal #rrggbb: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    spanishFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Fecha y hora no válida; debe estar en formato AAAA-MM-DD(T| )HH:MM[:SS]: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t