Return a VString from create-principal for backcompat

kadena-io · Oct 24, 2023 · d46b91e · d46b91e
1 parent 592ea1b
commit d46b91e
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
@@ -1451,7 +1451,7 @@ coreCreatePrincipal :: (IsBuiltin b, MonadEval b i m) => NativeFunction b i m
 coreCreatePrincipal info b cont handler _env = \case
   [VGuard g] -> do
     pr <- createPrincipalForGuard g
-    returnCEKValue cont handler $ VPactValue $ PPrincipal pr
+    returnCEKValue cont handler $ VString $ Pr.mkPrincipalIdent pr
   args -> argsError info b args
 
 coreValidatePrincipal :: (IsBuiltin b, MonadEval b i m) => NativeFunction b i m