[CBR-504] stylish-haskell

Author: intricate

chain/src/Pos/Chain/Block/Block.hs

@@ -82,10 +82,9 @@ import           Pos.Chain.Block.Header (BlockHeader (..), BlockSignature (..),
                      headerLastSlotInfo, mainHeaderAttributes,
                      mainHeaderBlockVersion, mainHeaderDifficulty,
                      mainHeaderEBDataProof, mainHeaderLeaderKey,
-                     mainHeaderProof, mainHeaderSignature,
-                     mainHeaderSlot, mainHeaderSoftwareVersion,
-                     mkGenesisHeader, mkMainHeaderExplicit,
-                     verifyMainBlockHeader)
+                     mainHeaderProof, mainHeaderSignature, mainHeaderSlot,
+                     mainHeaderSoftwareVersion, mkGenesisHeader,
+                     mkMainHeaderExplicit, verifyMainBlockHeader)
 import           Pos.Chain.Block.Main (BlockBodyAttributes,
                      BlockHeaderAttributes, MainBody (..),
                      MainExtraBodyData (..), MainExtraHeaderData (..),
@@ -111,7 +110,7 @@ import           Pos.Core.Attributes (mkAttributes)
 import           Pos.Core.Common (ChainDifficulty, HasDifficulty (..),
                      SlotLeaders, slotLeadersF)
 import           Pos.Core.Slotting (EpochIndex, HasEpochIndex (..),
-                     HasEpochOrSlot (..), SlotId (..), SlotCount)
+                     HasEpochOrSlot (..), SlotCount, SlotId (..))
 import           Pos.Crypto (Hash, ProtocolMagic, PublicKey, SecretKey, hash)
 import           Pos.Util.Some (Some (..))
 

chain/test/Test/Pos/Chain/Block/BlockSpec.hs

@@ -14,7 +14,8 @@ import           Universum
 import           Serokell.Util (VerificationRes (..), isVerSuccess)
 import           Test.Hspec (Spec, describe)
 import           Test.Hspec.QuickCheck (modifyMaxSuccess, prop)
-import           Test.QuickCheck (Property, counterexample, forAll, (===), (==>))
+import           Test.QuickCheck (Property, counterexample, forAll, (===),
+                     (==>))
 
 import           Pos.Chain.Block (BlockHeader (..), BlockSignature (..),
                      GenesisBody (..), GenesisConsensusData (..),

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

@@ -34,8 +34,8 @@ import           Serokell.Util.Verify (formatAllErrors, verResToMonadError)
 
 import           Pos.Chain.Block (Block, Blund, ConsensusEraLeaders (..),
                      HasSlogGState, LastBlkSlots, LastSlotInfo (..),
-                     SlogUndo (..), genBlockLeaders, headerHash, headerHashG,
-                     prevBlockL, blockLastSlotInfo, verifyBlocks)
+                     SlogUndo (..), blockLastSlotInfo, genBlockLeaders,
+                     headerHash, headerHashG, prevBlockL, verifyBlocks)
 import           Pos.Chain.Genesis as Genesis (Config (..),
                      configBlkSecurityParam, configEpochSlots,
                      configGenesisWStakeholders, configK)
@@ -44,8 +44,7 @@ import           Pos.Chain.Update (BlockVersion (..), ConsensusEra (..),
                      ObftConsensusStrictness (..), UpdateConfiguration,
                      lastKnownBlockVersion)
 import           Pos.Core (BlockCount, difficultyL, epochIndexL,
-                     epochOrSlotToEpochIndex, kEpochSlots,
-                     pcBlkSecurityParam)
+                     epochOrSlotToEpochIndex, kEpochSlots, pcBlkSecurityParam)
 import           Pos.Core.Chrono (NE, NewestFirst (getNewestFirst),
                      OldestFirst (..), toOldestFirst, _OldestFirst)
 import           Pos.Core.Exception (assertionFailed, reportFatalError)