    {-# LANGUAGE OverloadedStrings #-}
    module Yesod.Form.I18n.Portuguese where

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

    portugueseFormMessage :: FormMessage -> Text
    portugueseFormMessage :: FormMessage -> Text
    portugueseFormMessage (MsgInvalidInteger Text
    t) = Text
    "Número inteiro inválido: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `Data.Monoid.mappend` Text
    t
    portugueseFormMessage (MsgInvalidNumber Text
    t) = Text
    "Número inválido: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage (MsgInvalidEntry Text
    t) = Text
    "Entrada inválida: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage FormMessage
    MsgInvalidTimeFormat = Text
    "Hora inválida, deve estar no formato HH:MM[:SS]"
    portugueseFormMessage FormMessage
    MsgInvalidDay = Text
    "Data inválida, deve estar no formado AAAA-MM-DD"
    portugueseFormMessage (MsgInvalidUrl Text
    t) = Text
    "URL inválida: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage (MsgInvalidEmail Text
    t) = Text
    "Endereço de e-mail inválido: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage (MsgInvalidHour Text
    t) = Text
    "Hora inválida: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage (MsgInvalidMinute Text
    t) = Text
    "Minutos inválidos: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage (MsgInvalidSecond Text
    t) = Text
    "Segundos inválidos: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage FormMessage
    MsgCsrfWarning = Text
    "Como uma proteção contra ataques CSRF, por favor confirme a submissão do seu formulário."
    portugueseFormMessage FormMessage
    MsgValueRequired = Text
    "Preenchimento obrigatório"
    portugueseFormMessage (MsgInputNotFound Text
    t) = Text
    "Entrada não encontrada: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage FormMessage
    MsgSelectNone = Text
    "<Nenhum>"
    portugueseFormMessage (MsgInvalidBool Text
    t) = Text
    "Booleano inválido: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage FormMessage
    MsgBoolYes = Text
    "Sim"
    portugueseFormMessage FormMessage
    MsgBoolNo = Text
    "Não"
    portugueseFormMessage FormMessage
    MsgDelete = Text
    "Remover?"
    portugueseFormMessage (MsgInvalidHexColorFormat Text
    t) = Text
    "Cor inválida, deve estar no formato #rrggbb hexadecimal: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t
    portugueseFormMessage (MsgInvalidDatetimeFormat Text
    t) = Text
    "Data e hora inválida, deve estar no formato AAAA-MM-DD(T| )HH:MM[:SS]: " Text -> Text -> Text
    forall a. Monoid a => a -> a -> a
    `mappend` Text
    t