Make evalGasPayerCap have the same Expr type as evalExecTerm

kadena-io · Oct 24, 2024 · 22f1864 · 22f1864
1 parent 7f17548
commit 22f1864
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/pact/Pact/Core/Evaluate.hs b/pact/Pact/Core/Evaluate.hs
@@ -261,11 +261,11 @@ evalGasPayerCap
   -> Set ExecutionFlag -> NamespacePolicy
   -> PublicData -> MsgData
   -> CapState QualifiedName PactValue
-  -> Lisp.Expr Info -> IO (Either (PactError Info) EvalResult)
+  -> Lisp.Expr SpanInfo -> IO (Either (PactError Info) EvalResult)
 evalGasPayerCap capToken db spv gasModel flags nsp publicData msgData capState body = do
   evalEnv <- setupEvalEnv db Transactional msgData Nothing gasModel nsp spv publicData flags
   let evalState = def & esCaps .~ capState
-  interpretGasPayerTerm evalEnv evalState capToken body
+  interpretGasPayerTerm evalEnv evalState capToken (def <$ body)
 
 
 interpret