From a50286cfb48bdd782bfa1296f25f6626fadb710e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Hurlin?= <clement.hurlin@moduscreate.com>
Date: Fri, 8 Nov 2024 16:33:08 +0100
Subject: [PATCH] Parsers: avoid double usage of flip on a single line :-)

---
 cardano-cli/src/Cardano/CLI/Byron/Parsers.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs b/cardano-cli/src/Cardano/CLI/Byron/Parsers.hs
index dbf82deab..67bfbeda5 100644
--- 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 =