small refactor

kadena-io · Nov 21, 2023 · bc4b395 · bc4b395
1 parent ad875c6
commit bc4b395
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Pact/Native/Keysets.hs b/src/Pact/Native/Keysets.hs
@@ -69,9 +69,8 @@ readKeySet' :: FunApp -> Text -> Eval e KeySet
 readKeySet' i key = do
   ks <- parseMsgKey i "read-keyset" key
   whenExecutionFlagSet FlagEnforceKeyFormats $ do
-      ifExecutionFlagSet FlagDisablePact410
-        (enforceKeyFormats (const $ evalError' i "Invalid keyset") [ed25519HexFormat] ks)
-        (enforceKeyFormats (const $ evalError' i "Invalid keyset") [ed25519HexFormat, webAuthnFormat] ks)
+      formats <- ifExecutionFlagSet' FlagDisablePact410 [ed25510HexFormat] [ed25519HexFormat, webAuthnFormat]
+      (enforceKeyFormats (const $ evalError' i "Invalid keyset") formats ks)
 
   pure ks