diff --git a/.github/workflows/fourmolu.yaml b/.github/workflows/fourmolu.yaml index 3fb8bfa..f9e8621 100644 --- a/.github/workflows/fourmolu.yaml +++ b/.github/workflows/fourmolu.yaml @@ -12,4 +12,4 @@ jobs: - name: Run fourmolu uses: haskell-actions/run-fourmolu@v10 with: - version: "latest" + version: "0.15.0.0" 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