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