{-# 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: " forall a. Monoid a => a -> a -> a
`Data.Monoid.mappend` Text
t
portugueseFormMessage (MsgInvalidNumber Text
t) = Text
"Número inválido: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
portugueseFormMessage (MsgInvalidEntry Text
t) = Text
"Entrada inválida: " 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: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
portugueseFormMessage (MsgInvalidEmail Text
t) = Text
"Endereço de e-mail inválido: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
portugueseFormMessage (MsgInvalidHour Text
t) = Text
"Hora inválida: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
portugueseFormMessage (MsgInvalidMinute Text
t) = Text
"Minutos inválidos: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
portugueseFormMessage (MsgInvalidSecond Text
t) = Text
"Segundos inválidos: " 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: " forall a. Monoid a => a -> a -> a
`mappend` Text
t
portugueseFormMessage FormMessage
MsgSelectNone = Text
"<Nenhum>"
portugueseFormMessage (MsgInvalidBool Text
t) = Text
"Booleano inválido: " 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: " forall a. Monoid a => a -> a -> a
`mappend` Text
t