FormMessage (MsgInvalidHour t) = "Hora inválida: " `mappend` t
portuguese
portugueseFormMessage (MsgInvalidHour t) = "Hora inválida: " `mappend` t
portugueseFormMessage (MsgInvalidHour t) = "Hora inválida: " `mappend` t