age (MsgInputNotFound t) = "Entrada não encontrada: " `mappend` t
portugueseFormMess
portugueseFormMessage (MsgInputNotFound t) = "Entrada não encontrada: " `mappend` t
portugueseFormMessage (MsgInputNotFound t) = "Entrada não encontrada: " `mappend` t