верный выбор: " `mappend` t
russianFormMessage MsgInvalidTimeFormat = "Неверно указа
russianFormMessage (MsgInvalidEntry t) = "Неверный выбор: " `mappend` t
russianFormMessage (MsgInvalidEntry t) = "Неверный выбор: " `mappend` t