Formatting

Author: the-headless-ghost

cardano-diffusion/lib/Cardano/Network/PeerSelection/Governor/Types.hs

@@ -26,7 +26,8 @@ import Cardano.Network.PeerSelection.Governor.PeerSelectionActions qualified as
 import Cardano.Network.PeerSelection.Governor.PeerSelectionState qualified as Cardano
 import Cardano.Network.PeerSelection.LocalRootPeers
            (OutboundConnectionsState (..))
-import Cardano.Network.PeerSelection.PeerTrustable (PeerTrustable (IsNotTrustable))
+import Cardano.Network.PeerSelection.PeerTrustable
+           (PeerTrustable (IsNotTrustable))
 import Cardano.Network.PeerSelection.PublicRootPeers qualified as Cardano.PublicRootPeers
 import Cardano.Network.PeerSelection.State.LocalRootPeers qualified as LocalRootPeers
 import Control.Applicative (Alternative)

cardano-diffusion/protocols/lib/Cardano/Network/Protocol/ChainSync/Codec/TimeLimits.hs

@@ -5,9 +5,7 @@
 {-# LANGUAGE RankNTypes          #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 
-module Cardano.Network.Protocol.ChainSync.Codec.TimeLimits
-  ( timeLimitsChainSync
-  ) where
+module Cardano.Network.Protocol.ChainSync.Codec.TimeLimits (timeLimitsChainSync) where
 
 import Control.Monad.Class.MonadTime.SI
 

cardano-diffusion/protocols/tests-lib/Cardano/Network/Protocol/ChainSync/Codec/TimeLimits/Test.hs

@@ -2,7 +2,7 @@
 
 module Cardano.Network.Protocol.ChainSync.Codec.TimeLimits.Test where
 
-import Control.Monad.Class.MonadTime.SI ( DiffTime )
+import Control.Monad.Class.MonadTime.SI (DiffTime)
 import System.Random (mkStdGen)
 
 import Cardano.Network.PeerSelection.PeerTrustable (PeerTrustable (..))
@@ -15,7 +15,7 @@ import Ouroboros.Network.Protocol.ChainSync.Type (SingChainSync (..),
 import Ouroboros.Network.Protocol.Limits (ProtocolTimeLimitsWithRnd (..),
            shortWait)
 
-import Test.QuickCheck (Arbitrary (..), Property, oneof, property, elements)
+import Test.QuickCheck (Arbitrary (..), Property, elements, oneof, property)
 import Test.Tasty (TestTree, testGroup)
 import Test.Tasty.QuickCheck (testProperty, (===))
 
@@ -25,13 +25,13 @@ tests =
   testGroup "Ouroboros.Network.Protocol"
     [ testGroup "ChainSync"
       [ testGroup "TimeLimits"
-        [ testProperty "timeout in 'StIntersect'" 
+        [ testProperty "timeout in 'StIntersect'"
             prop_short_wait_timeout_in_intersect
-        , testProperty "timeout in 'StNext' 'StCanWait'" 
+        , testProperty "timeout in 'StNext' 'StCanWait'"
             prop_short_wait_timeout_in_canwait
         , testProperty "timeout in 'StIdle' state"
             prop_timeout_in_idle
-        , testProperty "timeout range for non-trustable peers in 'StNext' 'StMustReply' state" 
+        , testProperty "timeout range for non-trustable peers in 'StNext' 'StMustReply' state"
             prop_timeout_range_for_not_trustable_in_mustreply
         , testProperty "no timeout for trustable peers in 'StNext' 'StMustReply' state"
             prop_no_timeout_for_trustable_peers_in_mustreply
@@ -113,5 +113,5 @@ instance Arbitrary DiffTime where
   arbitrary = fromRational <$> arbitrary
 
 instance Show ChainSyncIdleTimeout where
-  show ChainSyncNoIdleTimeout = "ChainSyncNoIdleTimeout"
+  show ChainSyncNoIdleTimeout   = "ChainSyncNoIdleTimeout"
   show (ChainSyncIdleTimeout t) = "ChainSyncIdleTimeout " ++ show t

cardano-diffusion/protocols/tests/Main.hs

@@ -2,7 +2,8 @@ module Main (main) where
 
 import Test.Tasty
 
-import Cardano.Network.Protocol.ChainSync.Codec.TimeLimits.Test qualified (tests)
+import Cardano.Network.Protocol.ChainSync.Codec.TimeLimits.Test qualified
+           (tests)
 import Cardano.Network.Protocol.Handshake.Test qualified (tests)
 
 main :: IO ()