Fourmolize!

Author: sgillespie

cardano-chain-gen/src/Cardano/Mock/ChainSync/Server.hs

@@ -48,8 +48,8 @@ import Control.Tracer (nullTracer)
 import Data.ByteString.Lazy.Char8 (ByteString)
 import qualified Data.Map.Strict as Map
 import Data.Maybe (fromJust)
-import Network.TypedProtocol.Peer (Peer (..))
 import qualified Network.Socket as Socket
+import Network.TypedProtocol.Peer (Peer (..))
 import qualified Network.TypedProtocol.Stateful.Peer as St
 import Ouroboros.Consensus.Block (CodecConfig, HasHeader, Point, StandardHash, castPoint)
 import Ouroboros.Consensus.Config (TopLevelConfig, configCodec)

cardano-chain-gen/test/Test/Cardano/Db/Mock/Config.hs

@@ -276,7 +276,6 @@ withConfig staticDir mutableDir cmdLineArgs config action = do
       forgings' <- mapM mkBlockForging forgings
       -- _ <- throwIO $ userError "B"
       pure forgings'
-
 {-# ANN withConfig ("HLint: ignore Redundant pure" :: String) #-}
 
 mkSyncNodeConfig :: FilePath -> CommandLineArgs -> IO SyncNodeConfig