Add a TODO about gassing principals

kadena-io · Oct 20, 2023 · f90b604 · f90b604
1 parent 7f2f6d7
commit f90b604
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/pact-core/Pact/Core/IR/Eval/RawBuiltin.hs b/pact-core/Pact/Core/IR/Eval/RawBuiltin.hs
@@ -1419,6 +1419,7 @@ coreCompose = \info b cont handler _env -> \case
 coreCreatePrincipal :: (IsBuiltin b, MonadEval b i m) => NativeFunction b i m
 coreCreatePrincipal info b cont handler _env = \case
   [VGuard g] -> do
+    -- TODO make gas charging actually go through the model
     chargeGas coreGasPerLegacyGas
     case g of
       GKeyset (KeySet ks pf) -> case (toList ks, predicateToString pf) of