rtugueseFormMessage (MsgInvalidNumber t) = "Número inválido: " `mappend` t
por
portugueseFormMessage (MsgInvalidNumber t) = "Número inválido: " `mappend` t
portugueseFormMessage (MsgInvalidNumber t) = "Número inválido: " `mappend` t