Stylish haskell fixes

IntersectMBO · Aug 28, 2024 · 7f9754b · 7f9754b
1 parent a23d63e
commit 7f9754b
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/...ros-consensus-cardano/src/ouroboros-consensus-cardano/Ouroboros/Consensus/Cardano/Node.hs b/...ros-consensus-cardano/src/ouroboros-consensus-cardano/Ouroboros/Consensus/Cardano/Node.hs
@@ -495,10 +495,10 @@ instance CardanoHardForkConstraints c
       , (NodeToClientV_14, CardanoNodeToClientVersion10)
       , (NodeToClientV_15, CardanoNodeToClientVersion11)
       , (NodeToClientV_16, CardanoNodeToClientVersion12)
-      , (NodeToClientV_17, CardanoNodeToClientVersion13) 
+      , (NodeToClientV_17, CardanoNodeToClientVersion13)
       ]
 
-  latestReleasedNodeVersion _prx = (Just NodeToNodeV_13, Just NodeToClientV_17) 
+  latestReleasedNodeVersion _prx = (Just NodeToNodeV_13, Just NodeToClientV_17)
 
 {-------------------------------------------------------------------------------
   ProtocolInfo

diff --git a/ouroboros-consensus/bench/mempool-bench/Main.hs b/ouroboros-consensus/bench/mempool-bench/Main.hs
@@ -22,7 +22,7 @@ import qualified Data.Text as Text
 import qualified Data.Text.Read as Text.Read
 import           Main.Utf8 (withStdTerminalHandles)
 import qualified Ouroboros.Consensus.Mempool.Capacity as Mempool
-import           Ouroboros.Network.SizeInBytes 
+import           Ouroboros.Network.SizeInBytes
 import           System.Exit (die, exitFailure)
 import qualified Test.Consensus.Mempool.Mocked as Mocked
 import           Test.Consensus.Mempool.Mocked (MockedMempool)

diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Mempool.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Mempool.hs
@@ -15,8 +15,8 @@ module Ouroboros.Consensus.Mempool (
     -- ** Mempool Snapshot
   , MempoolSnapshot (..)
     -- ** Re-exports
-  , TicketNo
   , SizeInBytes
+  , TicketNo
   , zeroTicketNo
     -- * Mempool capacity
   , MempoolCapacityBytes (..)
@@ -39,7 +39,7 @@ module Ouroboros.Consensus.Mempool (
 
 import           Ouroboros.Consensus.Mempool.API (ForgeLedgerState (..),
                      Mempool (..), MempoolAddTxResult (..),
-                     MempoolSnapshot (..), TicketNo, SizeInBytes, addLocalTxs,
+                     MempoolSnapshot (..), SizeInBytes, TicketNo, addLocalTxs,
                      addTxs, isMempoolTxAdded, isMempoolTxRejected,
                      mempoolTxAddedToMaybe, zeroTicketNo)
 import           Ouroboros.Consensus.Mempool.Capacity (ByteSize (..),

diff --git a/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Mempool/API.hs b/ouroboros-consensus/src/ouroboros-consensus/Ouroboros/Consensus/Mempool/API.hs
@@ -25,8 +25,8 @@ module Ouroboros.Consensus.Mempool.API (
     -- * Mempool Snapshot
   , MempoolSnapshot (..)
     -- * Re-exports
-  , TicketNo
   , SizeInBytes
+  , TicketNo
   , zeroTicketNo
   ) where
 

diff --git a/ouroboros-consensus/test/consensus-test/Test/Consensus/Mempool.hs b/ouroboros-consensus/test/consensus-test/Test/Consensus/Mempool.hs
@@ -597,7 +597,7 @@ instance Arbitrary TestSetupWithTxs where
               testMempoolCapOverride =
                 if noOverride
                 then NoMempoolCapacityBytesOverride
-                else MempoolCapacityBytesOverride $ MempoolCapacityBytes $ 
+                else MempoolCapacityBytesOverride $ MempoolCapacityBytes $
                        mpCap + getSizeInBytes (txSizesInBytes $ map fst txs)
             }
     return TestSetupWithTxs { testSetup = testSetup', txs }