issueinvites.hs

    preconsuming choice IssueInvites : ContractId Doodle
      controller organizer 
        do
          assertMsg "this doodle has been opened for voting, cannot issue any more invites" (not open)
          DA.Traversable.mapA 
            (\voter -> create DoodleInvite 
                with doodleName = this.name, organizer = this.organizer, voter = voter) 
            voters
          -- archive self
          create this with open = True