Merge pull request #964 from IntersectMBO/smelc/simplify-protocol-mag…

…ic-parser Parsers: avoid double usage of flip on a single line
IntersectMBO · Nov 12, 2024 · 003373f · 003373f
2 parents 808d843 + a50286c
commit 003373f
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs b/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs
@@ -688,8 +688,9 @@ parseProtocolMagicId arg =
 
 parseProtocolMagic :: Parser ProtocolMagic
 parseProtocolMagic =
-  flip AProtocolMagic RequiresMagic . flip L.Annotated ()
-    <$> parseProtocolMagicId "protocol-magic"
+  mkProtocol <$> parseProtocolMagicId "protocol-magic"
+ where
+  mkProtocol protMagicId = AProtocolMagic (L.Annotated protMagicId ()) RequiresMagic
 
 parseTxFile :: String -> Parser (TxFile In)
 parseTxFile opt =