VoteChoice.hs

   nonconsuming choice Vote : ContractId Doodle
      with 
        option: Text
      controller voter
        do
          doodleContractId <- lookupByKey @Doodle (organizer, doodleName)
          doodleContract <- fetch (fromSome doodleContractId)
          assertMsg "this party does not own the doodle " (organizer == doodleContract.organizer)
          exercise (fromSome doodleContractId) CastVote with voter = this.voter, option = option, inviteId = self