stylish-haskell: consensus packages

IntersectMBO · Nov 21, 2022 · cdd7b5e · cdd7b5e
1 parent 015dd18
commit cdd7b5e
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Ledger/SupportsPeerSelection.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Ledger/SupportsPeerSelection.hs
@@ -13,11 +13,11 @@ module Ouroboros.Consensus.Ledger.SupportsPeerSelection (
 import           Control.DeepSeq (NFData (..))
 import           Data.List.NonEmpty (NonEmpty)
 
-import           Ouroboros.Network.PeerSelection.RelayAccessPoint
-                     (DomainAccessPoint (..), IP (..), PortNumber,
-                      RelayAccessPoint (..))
 import           Ouroboros.Network.PeerSelection.LedgerPeers.Type
                      (PoolStake (..))
+import           Ouroboros.Network.PeerSelection.RelayAccessPoint
+                     (DomainAccessPoint (..), IP (..), PortNumber,
+                     RelayAccessPoint (..))
 
 import           Ouroboros.Consensus.Ledger.Abstract (LedgerState)
 

diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/ClientInterface.hs b/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/BlockFetch/ClientInterface.hs
@@ -25,7 +25,7 @@ import qualified Ouroboros.Network.AnchoredFragment as AF
 import           Ouroboros.Network.Block (MaxSlotNo)
 import           Ouroboros.Network.BlockFetch.ConsensusInterface
                      (BlockFetchConsensusInterface (..), FetchMode (..),
-                      FromConsensus (..), WhetherReceivingTentativeBlocks (..))
+                     FromConsensus (..), WhetherReceivingTentativeBlocks (..))
 import           Ouroboros.Network.SizeInBytes
 
 import           Ouroboros.Consensus.Block hiding (blockMatchesHeader)

diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs b/ouroboros-consensus/src/Ouroboros/Consensus/MiniProtocol/ChainSync/Client.hs
@@ -58,7 +58,7 @@ import           Ouroboros.Network.Block (Tip, getTipBlockNo)
 import           Ouroboros.Network.BlockFetch.ConsensusInterface
                      (WhetherReceivingTentativeBlocks (..))
 import           Ouroboros.Network.ControlMessage (ControlMessage (..),
-                   ControlMessageSTM)
+                     ControlMessageSTM)
 import           Ouroboros.Network.NodeToNode.Version (isPipeliningEnabled)
 import           Ouroboros.Network.PeerSelection.PeerMetric.Type
                      (HeaderMetricsTracer)

diff --git a/scripts/ci/check-stylish.sh b/scripts/ci/check-stylish.sh
@@ -5,3 +5,4 @@ set -euo pipefail
 export LC_ALL=C.UTF-8
 # TODO the export of the <= operator TxLimits crashes stylish-haskell
 fd -p ouroboros-consensus -e hs -E Setup.hs -E ouroboros-consensus/src/Ouroboros/Consensus/Mempool/TxLimits.hs -X stylish-haskell -c .stylish-haskell.yaml -i
+fd -p ouroboros-node -e hs -E Setup.hs -X stylish-haskell -c .stylish-haskell.yaml -i