From 0543f0517c6164da93d2fb1760a66d8797be1e3f Mon Sep 17 00:00:00 2001
From: Efim Kubishkin <efimkub@mail.ru>
Date: Fri, 13 Sep 2024 20:40:40 +0300
Subject: [PATCH] Fix new version fourmolu warnings

---
 lamagraph-core/src/Core/Node.hs | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/lamagraph-core/src/Core/Node.hs b/lamagraph-core/src/Core/Node.hs
index 366e35f..2ee5a1f 100644
--- a/lamagraph-core/src/Core/Node.hs
+++ b/lamagraph-core/src/Core/Node.hs
@@ -49,9 +49,9 @@ markAllInnerEdges nodes =
       markPort port =
         Port
           (_targetAddress port)
-          ( boolToBit $
-              bitToBool (_edgeIsVisited port)
-                || isJust (elemIndex (Just (_targetAddress port)) addressesOfLoadedNodes)
+          ( boolToBit
+              $ bitToBool (_edgeIsVisited port)
+              || isJust (elemIndex (Just (_targetAddress port)) addressesOfLoadedNodes)
           )
       markPorts loadedNode =
         LoadedNode
@@ -68,8 +68,10 @@ isActive ::
   LoadedNode numberOfPorts ->
   Bool
 isActive leftNode rightNode =
-  leftNodePrimaryPortAddress == _originalAddress rightNode
-    && rightNodePrimaryPortAddress == _originalAddress leftNode
+  leftNodePrimaryPortAddress
+    == _originalAddress rightNode
+    && rightNodePrimaryPortAddress
+    == _originalAddress leftNode
  where
   leftNodePrimaryPortAddress = _targetAddress (_primaryPort $ _node leftNode)
   rightNodePrimaryPortAddress = _targetAddress (_primaryPort $ _node rightNode)
@@ -85,8 +87,8 @@ selectAddressToLoad loadedNode =
   if isPortToLoad loadedNode primaryPort
     then Just $ _targetAddress primaryPort
     else
-      foldl (\s mbPort -> mbPort >>= addressToLoad s) Nothing $
-        _secondaryPorts node
+      foldl (\s mbPort -> mbPort >>= addressToLoad s) Nothing
+        $ _secondaryPorts node
  where
   node = _node loadedNode
   primaryPort = _primaryPort node