Update renderKeySetName to make the roundtrip more faithful

kadena-io · Nov 27, 2023 · 405f213 · 405f213
1 parent 4db6f64
commit 405f213
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/pact-core/Pact/Core/Guards.hs b/pact-core/Pact/Core/Guards.hs
@@ -57,7 +57,8 @@ instance Pretty KeySetName where
   pretty (KeySetName ks (Just ns)) = "'" <> pretty ks <> "." <> pretty ns
 
 renderKeySetName :: KeySetName -> Text
-renderKeySetName = _keysetName
+renderKeySetName (KeySetName n Nothing) = n
+renderKeySetName (KeySetName n (Just ns)) = _namespaceName ns <> "." <> n
 
 keysetNameParser :: Parser KeySetName
 keysetNameParser = qualified <|> withoutNs