У меня есть типы данных, определенные как: data ComitteeView = CommitteeView {CommitteeId :: CommitteeId, CommitteeMembers :: [Person]} ...