Update pact-core/Pact/Core/IR/Eval/RawBuiltin.hs

Co-authored-by: rsoeldner <[email protected]>
kadena-io · Dec 1, 2023 · f7fc4bf · f7fc4bf
1 parent 5d91897
commit f7fc4bf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pact-core/Pact/Core/IR/Eval/RawBuiltin.hs b/pact-core/Pact/Core/IR/Eval/RawBuiltin.hs
@@ -1045,7 +1045,7 @@ defineKeySet' info cont handler env ksname newKs  = do
       let writeKs = do
             liftDbFunction info (_pdbWrite pdb Write DKeySets ksn newKs)
             returnCEKValue cont handler (VString "Keyset write success")
-      liftDbFunction info (_pdbRead pdb DKeySets ksn) >>= \case
+      liftDbFunction info (readKeyset ksn) >>= \case
         Just oldKs -> do
           cond <- enforceKeyset oldKs
           if cond then writeKs