[CBR-275] cleanup interface required for structured logging

Signed-off-by: Alexander Diemand <[email protected]>
input-output-hk · Sep 2, 2018 · ca66350 · ca66350
1 parent 3e76205
commit ca66350
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/auxx/src/Command/Update.hs b/auxx/src/Command/Update.hs
@@ -27,8 +27,7 @@ import           Pos.Crypto (Hash, ProtocolMagic, emptyPassphrase, hash,
                      hashHexF, unsafeHash, withSafeSigner, withSafeSigners)
 import           Pos.Infra.Diffusion.Types (Diffusion (..))
 import           Pos.Network.Update.Download (installerHash)
-import           Pos.Util.Wlog (CanLog, HasLoggerName, logDebug, logError,
-                     logInfo)
+import           Pos.Util.Wlog (WithLogger, logDebug, logError, logInfo)
 
 import           Lang.Value (ProposeUpdateParams (..), ProposeUpdateSystem (..))
 import           Mode (MonadAuxxMode)
@@ -105,7 +104,7 @@ updateDataElement ProposeUpdateSystem{..} = do
 dummyHash :: Hash Raw
 dummyHash = unsafeHash (0 :: Integer)
 
-hashFile :: (CanLog m, HasLoggerName m, MonadIO m) => Maybe FilePath -> m (Hash Raw)
+hashFile :: (WithLogger m, MonadIO m) => Maybe FilePath -> m (Hash Raw)
 hashFile Nothing  = pure dummyHash
 hashFile (Just filename) = do
     fileData <- liftIO $ BSL.readFile filename

diff --git a/wallet/src/Pos/Wallet/Web/Tracking/Sync.hs b/wallet/src/Pos/Wallet/Web/Tracking/Sync.hs
@@ -735,7 +735,6 @@ calculateEstimatedRemainingTime (WS.SyncThroughput blocks) remainingBlocks =
 -- | Apply the given 'CAccModifier' to a wallet.
 applyModifierToWallet
     :: ( CanLog m
-       , HasLoggerName m
        , MonadIO m
        )
     => WalletDB
@@ -773,7 +772,7 @@ applyModifierToWallet db trackingOperation wid newBlockHeaderTip CAccModifier{..
       newSyncState
 
 rollbackModifierFromWallet
-    :: (CanLog m, HasLoggerName m, MonadSlots ctx m)
+    :: (CanLog m, MonadSlots ctx m)
     => ProtocolConstants
     -> WalletDB
     -> TrackingOperation