compiler warning

IntersectMBO · Apr 7, 2021 · 5c9ee90 · 5c9ee90
1 parent 86679f1
commit 5c9ee90
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/plutus-pab/src/Plutus/PAB/Simulator.hs b/plutus-pab/src/Plutus/PAB/Simulator.hs
@@ -584,10 +584,10 @@ handleContractStore ::
     => ContractStore t
     ~> Eff effs
 handleContractStore = \case
-    Contract.PutState def instanceId state -> do
+    Contract.PutState definition instanceId state -> do
         instancesTVar <- view instances <$> (Core.askUserEnv @t @(SimulatorState t))
         liftIO $ STM.atomically $ do
-            let instState = SimulatorContractInstanceState{_contractDef = def, _contractState = state}
+            let instState = SimulatorContractInstanceState{_contractDef = definition, _contractState = state}
             STM.modifyTVar instancesTVar (set (at instanceId) (Just instState))
     Contract.GetState instanceId -> do
         instancesTVar <- view instances <$> (Core.askUserEnv @t @(SimulatorState t))