diff --git a/src/internal/contract.mligo b/src/internal/contract.mligo
index e19303f..a9979a0 100644
--- a/src/internal/contract.mligo
+++ b/src/internal/contract.mligo
@@ -100,8 +100,8 @@ let resolve_proposal
     let () = Conditions.ready_to_execute proposal.state in
     let storage = Storage.Op.update_proposal(proposal_id, proposal, storage) in
     let ops, storage = Execution.perform_operations proposal_id proposal storage in
-    let event = Tezos.emit "%resolve_proposal" ({ proposal_id = proposal_id ; proposal_state = proposal.state } : Event.Types.resolve_proposal) in
-    let archive = Tezos.emit "%archive_proposal" ({ proposal_id = proposal_id ; proposal = Bytes.pack proposal } : Event.Types.archive_proposal) in
+    let event = Tezos.emit "%resolve_proposal" ({ proposal_id ; proposal_state = proposal.state } : Event.Types.resolve_proposal) in
+    let archive = Tezos.emit "%archive_proposal" ({ proposal_id ; proposal = Bytes.pack proposal }: Event.Types.archive_proposal ) in
     (event::archive::ops, storage)
 
 let contract (action, storage : request) : result =