add gasmodel as an argument to setupevalenv

kadena-io · May 17, 2024 · 8b1c652 · 8b1c652
1 parent 090fed9
commit 8b1c652
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/pact/Pact/Core/Evaluate.hs b/pact/Pact/Core/Evaluate.hs
@@ -118,13 +118,13 @@ setupEvalEnv
   :: PactDb CoreBuiltin ()
   -> ExecutionMode -- <- we have this
   -> MsgData -- <- create at type for this
-  -- -> GasEnv -- <- also have this, use constant gas model
+  -> GasModel CoreBuiltin -- <- also have this, use constant gas model
   -> NamespacePolicy
   -> SPVSupport
   -> PublicData
   -> S.Set ExecutionFlag
   -> IO (EvalEnv CoreBuiltin ())
-setupEvalEnv pdb mode msgData np spv pd efs = do
+setupEvalEnv pdb mode msgData gasModel np spv pd efs = do
   gasRef <- newIORef mempty
   pure $ EvalEnv
     { _eeMsgSigs = mkMsgSigs $ mdSigners msgData
@@ -138,7 +138,7 @@ setupEvalEnv pdb mode msgData np spv pd efs = do
     , _eeNatives = coreBuiltinMap
     , _eeNamespacePolicy = np
     , _eeGasRef = gasRef
-    , _eeGasModel = freeGasModel
+    , _eeGasModel = gasModel
     ,_eeSPVSupport = spv
     }
   where