Better variable name

kadena-io · Dec 1, 2023 · 29861a0 · 29861a0
1 parent f2b75a0
commit 29861a0
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/pact-core/Pact/Core/IR/Desugar.hs b/pact-core/Pact/Core/IR/Desugar.hs
@@ -1195,11 +1195,11 @@ renameModule (Module unmangled mgov defs blessed imports implements mhash i) = d
     pure (defn':defns, S.insert (defName defn) s, m')
 
   resolveGov mname = \case
-    KeyGov ksn -> case parseAnyKeysetName (_keysetName ksn) of
+    KeyGov rawKsn -> case parseAnyKeysetName (_keysetName rawKsn) of
       Left {} -> lift $ throwExecutionError i (ModuleGovernanceFailure mname)
-      Right ksn' -> do
-        lift $ enforceKeysetNameAdmin i mname ksn'
-        pure (KeyGov ksn')
+      Right ksn -> do
+        lift $ enforceKeysetNameAdmin i mname ksn
+        pure (KeyGov ksn)
     CapGov (UnresolvedGov govName) ->
       case find (\d -> BN (BareName (defName d)) == govName) defs of
         Just (DCap d) -> do