DoodleInvite.hs

template DoodleInvite
  with
    doodleName: Text
    organizer: Party
    voter: Party
  where
    signatory organizer
    observer voter
    key (organizer, voter, doodleName) : (Party, Party, Text)
    maintainer key._1

    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