[CBR-96] fixSylishHaskell

Author: coot

db/src/Pos/DB/Block/Logic/Creation.hs

@@ -47,10 +47,10 @@ import           Pos.Core.Util.LogSafe (logInfoS)
 import           Pos.Crypto (ProtocolMagic, SecretKey)
 import           Pos.DB.Block.Logic.Internal (MonadBlockApply,
                      applyBlocksUnsafe, normalizeMempool)
-import           Pos.DB.Block.Logic.Util (calcChainQualityM)
-import           Pos.DB.Block.Logic.VAR (verifyBlocksPrefix)
 import           Pos.DB.Block.Logic.Types (VerifyBlocksContext (..),
                      getVerifyBlocksContext)
+import           Pos.DB.Block.Logic.Util (calcChainQualityM)
+import           Pos.DB.Block.Logic.VAR (verifyBlocksPrefix)
 import           Pos.DB.Block.Lrc (LrcModeFull, lrcSingleShot)
 import           Pos.DB.Block.Slog.Logic (ShouldCallBListener (..))
 import qualified Pos.DB.BlockIndex as DB

db/src/Pos/DB/Block/Slog/Logic.hs

@@ -48,8 +48,8 @@ import           Pos.DB (SomeBatchOp (..))
 import           Pos.DB.Block.BListener (MonadBListener (..))
 import qualified Pos.DB.Block.GState.BlockExtra as GS
 import           Pos.DB.Block.Load (putBlunds)
-import           Pos.DB.Block.Slog.Context (slogGetLastSlots, slogPutLastSlots)
 import           Pos.DB.Block.Logic.Types (VerifyBlocksContext (..))
+import           Pos.DB.Block.Slog.Context (slogGetLastSlots, slogPutLastSlots)
 import qualified Pos.DB.BlockIndex as DB
 import           Pos.DB.Class (MonadDB (..), MonadDBRead)
 import qualified Pos.DB.GState.Common as GS

generator/app/VerificationBench.hs

@@ -25,13 +25,13 @@ import           Pos.Core.Common (BlockCount (..), unsafeCoinPortionFromDouble)
 import           Pos.Core.Configuration (genesisBlockVersionData, genesisData,
                      genesisSecretKeys, slotSecurityParam)
 import           Pos.Core.Genesis (FakeAvvmOptions (..), GenesisData (..),
-                     GenesisProtocolConstants (..), GenesisInitializer (..),
+                     GenesisInitializer (..), GenesisProtocolConstants (..),
                      TestnetBalanceOptions (..))
 import           Pos.Core.Slotting (Timestamp (..))
 import           Pos.Crypto.Configuration (ProtocolMagic)
-import           Pos.DB.DB (initNodeDBs)
 import           Pos.DB.Block (getVerifyBlocksContext', rollbackBlocks,
                      verifyAndApplyBlocks, verifyBlocksPrefix)
+import           Pos.DB.DB (initNodeDBs)
 import           Pos.DB.Txp.Logic (txpGlobalSettings)
 import           Pos.Generator.Block (BlockGenParams (..), TxGenParams (..),
                      genBlocks)

generator/bench/Bench/Pos/Criterion/Block/Logic.hs

@@ -29,9 +29,8 @@ import           Pos.Core.Slotting (EpochOrSlot (..), SlotId, Timestamp (..),
 import           Pos.Core.Update (BlockVersionData (..))
 import           Pos.Crypto.Configuration (ProtocolMagic (..))
 import           Pos.DB (getTipHeader)
-import           Pos.DB.Block (VerifyBlocksContext,
-                     getVerifyBlocksContext', rollbackBlocks,
-                     verifyAndApplyBlocks, verifyBlocksPrefix)
+import           Pos.DB.Block (VerifyBlocksContext, getVerifyBlocksContext',
+                     rollbackBlocks, verifyAndApplyBlocks, verifyBlocksPrefix)
 import           Pos.DB.DB (initNodeDBs)
 import qualified Pos.DB.Lrc as LrcDB
 import           Pos.DB.Txp (txpGlobalSettings)

generator/src/Pos/Generator/Block/Logic.hs

@@ -27,10 +27,9 @@ import           Pos.Core.Block.Constructors (mkGenesisBlock)
 import           Pos.Crypto (ProtocolMagic, pskDelegatePk)
 import           Pos.DB.Block (ShouldCallBListener (..),
                      VerifyBlocksContext (..), applyBlocksUnsafe,
-                     createMainBlockInternal, lrcSingleShot,
-                     getVerifyBlocksContext, getVerifyBlocksContext',
-                     normalizeMempool, verifyBlocksPrefix)
-import           Pos.DB.Block ()
+                     createMainBlockInternal, getVerifyBlocksContext,
+                     getVerifyBlocksContext', lrcSingleShot, normalizeMempool,
+                     verifyBlocksPrefix)
 import qualified Pos.DB.BlockIndex as DB
 import           Pos.DB.Delegation (getDlgTransPsk)
 import           Pos.DB.Lrc (lrcActionOnEpochReason)

generator/src/Test/Pos/Block/Logic/Event.hs

@@ -21,13 +21,13 @@ import qualified Data.Text as T
 import qualified GHC.Exts as IL
 
 import           Pos.Block.Types (Blund)
-import           Pos.Core.Configuration (HasConfiguration)
 import           Pos.Core.Block (Block, HeaderHash)
 import           Pos.Core.Chrono (NE, NewestFirst, OldestFirst)
+import           Pos.Core.Configuration (HasConfiguration)
 import           Pos.Core.Exception (CardanoFatalError (..))
-import           Pos.DB.Block (BlockLrcMode, rollbackBlocks,
-                     getVerifyBlocksContext', verifyAndApplyBlocks)
 import           Pos.Core.Slotting (EpochOrSlot (..), SlotId, getEpochOrSlot)
+import           Pos.DB.Block (BlockLrcMode, getVerifyBlocksContext',
+                     rollbackBlocks, verifyAndApplyBlocks)
 import           Pos.DB.Pure (DBPureDiff, MonadPureDB, dbPureDiff, dbPureDump,
                      dbPureReset)
 import           Pos.DB.Txp (MonadTxpLocal)

generator/test/Test/Pos/Block/Logic/VarSpec.hs

@@ -27,11 +27,11 @@ import           Pos.Block.Types (Blund)
 import           Pos.Core (HasConfiguration, blkSecurityParam, epochSlots,
                      genesisData)
 import           Pos.Core.Block (headerHash)
-import           Pos.Core.Slotting (EpochOrSlot (..), getEpochOrSlot)
 import           Pos.Core.Chrono (NE, NewestFirst (..), OldestFirst (..),
                      nonEmptyNewestFirst, nonEmptyOldestFirst,
                      splitAtNewestFirst, toNewestFirst, _NewestFirst)
 import           Pos.Core.Genesis (GenesisData (..))
+import           Pos.Core.Slotting (EpochOrSlot (..), getEpochOrSlot)
 import           Pos.DB.Block (getVerifyBlocksContext', verifyAndApplyBlocks,
                      verifyBlocksPrefix)
 import           Pos.DB.Pure (dbPureDump)