Apply styling suggestions

Co-authored-by: Marcin Szamotulski <profunctor@pm.me>
IntersectMBO · May 12, 2021 · a2a19de · a2a19de
1 parent 0526907
commit a2a19de
Showing 1 changed file with 9 additions and 6 deletions.
diff --git a/cardano-node/src/Cardano/Node/Run.hs b/cardano-node/src/Cardano/Node/Run.hs
@@ -436,12 +436,15 @@ producerAddresses
 producerAddresses nt =
   case nt of
     RealNodeTopology lrpg prp _ ->
-      ( map (\lrp -> (valency lrp
-                           , Map.fromList $ rootAddressToRelayAddress
-                                          $ localRoots lrp))
-                  (groups lrpg)
-      , concatMap (map fst . rootAddressToRelayAddress)
-                  (map publicRoots prp))
+       ( map (\lrp -> ( valency lrp
+                     , Map.fromList $ rootAddressToRelayAddress
+                                    $ localRoots lrp
+                     )
+             )
+             (groups lrpg)
+       , concatMap (map fst . rootAddressToRelayAddress)
+                   (map publicRoots prp)
+       )
 
 useLedgerAfterSlot
   :: NetworkTopology