Fix warnings, stylish:

Author: parsonsmatt

db/src/Pos/DB/Rocks/Functions.hs

@@ -44,7 +44,7 @@ import           System.FilePath (takeDirectory, (</>))
 
 import           Pos.Binary.Class (Bi, serialize')
 import           Pos.DB.BatchOp (rocksWriteBatch)
-import           Pos.DB.Class (MonadDBRead(..), DBIteratorClass (..), DBTag (..), IterType)
+import           Pos.DB.Class (DBIteratorClass (..), DBTag (..), IterType)
 import           Pos.DB.Functions (processIterEntry)
 import           Pos.DB.Rocks.Types (DB (..), MonadRealDB, NodeDBs (..),
                      getDBByTag)

db/src/Pos/DB/Update/Poll/DBPoll.hs

@@ -1,5 +1,7 @@
 {-# LANGUAGE TypeFamilies #-}
 
+{-# OPTIONS_GHC -fno-warn-orphans #-}
+
 -- | Instance of MoandPollRead which uses DB.
 
 module Pos.DB.Update.Poll.DBPoll
@@ -9,8 +11,6 @@ module Pos.DB.Update.Poll.DBPoll
 
 import           Universum hiding (id)
 
-import           Control.Monad.Trans.Identity (IdentityT (..))
-import           Data.Coerce (coerce)
 import qualified Data.HashMap.Strict as HM
 import qualified Ether
 import           UnliftIO (MonadUnliftIO)
@@ -28,8 +28,6 @@ import           Pos.Util.Wlog (WithLogger)
 -- Transformer
 ----------------------------------------------------------------------------
 
-data DBPollTag
-
 type DBPoll = Ether.ReaderT UpdateConfiguration UpdateConfiguration
 
 runDBPoll :: UpdateConfiguration -> DBPoll m a -> m a

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

@@ -32,7 +32,7 @@ import           Pos.Chain.Block (HasSlogGState (..))
 import           Pos.Chain.Delegation (DelegationVar, HasDlgConfiguration)
 import           Pos.Chain.Genesis (GenesisWStakeholders (..))
 import           Pos.Chain.Ssc (HasSscConfiguration, SscMemTag, SscState)
-import           Pos.Chain.Update (UpdateConfiguration, HasUpdateConfiguration)
+import           Pos.Chain.Update (UpdateConfiguration)
 import           Pos.Client.Txp.Addresses (MonadAddresses (..))
 import           Pos.Configuration (HasNodeConfiguration)
 import           Pos.Core (Address, HasPrimaryKey (..), SlotCount, SlotId (..),

node/src/Cardano/Node/API.hs

@@ -10,7 +10,6 @@ import           Universum
 import           Control.Concurrent.STM (orElse, retry)
 import           Control.Lens (lens, makeLensesWith, to)
 import qualified Data.ByteString.Char8 as BS8
-import           Data.Default (Default)
 import qualified Data.Text as Text
 import           Data.Time.Units (toMicroseconds)
 import qualified Paths_cardano_sl_node as Paths
@@ -19,38 +18,32 @@ import           Servant
 import           Ntp.Client (NtpConfiguration, NtpStatus (..),
                      ntpClientSettings, withNtpClient)
 import           Ntp.Packet (NtpOffset)
-import           Pos.Chain.Block (HasBlockConfiguration, LastKnownHeader,
-                     LastKnownHeaderTag)
+import           Pos.Chain.Block (LastKnownHeader, LastKnownHeaderTag)
 import           Pos.Chain.Ssc (SscContext)
 import           Pos.Chain.Update (UpdateConfiguration, curSoftwareVersion)
 import           Pos.Client.CLI.NodeOptions (NodeApiArgs (..))
-import           Pos.Context
+import           Pos.Context (HasPrimaryKey (..), HasSscContext (..),
+                     NodeContext (..))
 import qualified Pos.Core as Core
-import           Pos.Core.JsonLog (CanJsonLog (..))
 import           Pos.Crypto (SecretKey)
 import qualified Pos.DB.Block as DB
 import qualified Pos.DB.BlockIndex as DB
 import qualified Pos.DB.Class as DB
 import           Pos.DB.GState.Lock (Priority (..), StateLock,
                      withStateLockNoMetrics)
 import qualified Pos.DB.Rocks as DB
-import           Pos.DB.Txp (MempoolExt)
 import           Pos.DB.Txp.MemState (GenericTxpLocalData, TxpHolderTag)
 import           Pos.Infra.Diffusion.Subscription.Status (ssMap)
-import           Pos.Infra.Diffusion.Types
+import           Pos.Infra.Diffusion.Types (Diffusion (..))
 import qualified Pos.Infra.Slotting.Util as Slotting
-import           Pos.Infra.Util.JsonLog.Events (jsonLogDefault)
-import           Pos.Launcher.Configuration (HasConfigurations)
-import           Pos.Launcher.Resource
+import           Pos.Launcher.Resource (NodeResources (..))
 import           Pos.Node.API as Node
 import           Pos.Util (HasLens (..), HasLens')
 import           Pos.Util.CompileInfo (CompileTimeInfo, ctiGitRevision)
 import           Pos.Util.Lens (postfixLFields)
-import           Pos.Util.Servant
+import           Pos.Util.Servant (WalletResponse (..), single)
 import           Pos.Web (serveImpl)
 import qualified Pos.Web as Legacy
-import           Pos.WorkMode (RealModeContext)
-import           Pos.WorkMode.Class (WorkMode)
 
 type NodeV1Api
     = "v1"
@@ -106,8 +99,7 @@ legacyNodeApi r =
         Legacy.nodeServantHandlers
 
 launchNodeServer
-    :: HasConfigurations
-    => NodeApiArgs
+    :: NodeApiArgs
     -> NtpConfiguration
     -> NodeResources ()
     -> UpdateConfiguration