Update module hashing for namespaced keysets

kadena-io · Dec 1, 2023 · 338c319 · 338c319
1 parent 80020f3
commit 338c319
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/pact-core/Pact/Core/IR/ModuleHashing.hs b/pact-core/Pact/Core/IR/ModuleHashing.hs
@@ -134,10 +134,14 @@ encodeModule (Module mname mgov defs mblessed imports mimps _mh _mi) = parens $
   <> hsep (encodeDef <$> defs)
   where
   encodeGov :: Governance Name -> Builder
-  encodeGov (KeyGov (KeySetName ksn)) = encodeText ksn
+  encodeGov (KeyGov (KeySetName name mNs)) = encodeMNamespace mNs <> encodeText name
   encodeGov (CapGov (ResolvedGov fqn)) = encodeFqnAsQual fqn
   encodeBless (ModuleHash (Hash s)) = parens ("bless" <+> B.shortByteString s)
 
+encodeMNamespace :: Maybe NamespaceName -> Builder
+encodeMNamespace Nothing = mempty
+encodeMNamespace (Just (NamespaceName ns)) = encodeText ns <> "."
+
 encodeInterface :: (IsBuiltin b) => Interface Name Type b i -> Builder
 encodeInterface (Interface ifn idefs imports _h _i) = parens $
   "interface"
@@ -214,7 +218,7 @@ encodeGuard = \case
       KeysAll -> "keys-all"
       Keys2 -> "keys-2"
       KeysAny -> "keys-any"
-  GKeySetRef (KeySetName ksn) -> "KeySetName" <> parens (encodeText ksn)
+  GKeySetRef (KeySetName name mNs) -> "KeySetName" <> parens (encodeMNamespace mNs <> encodeText name)
   GUserGuard (UserGuard fn args) ->
     "UG" <> encodeApp (encodeFqnAsQual fn) (encodePactValue <$> args)
   GCapabilityGuard (CapabilityGuard ct args _) ->