diff --git a/serokell-util.cabal b/serokell-util.cabal
--- a/serokell-util.cabal
+++ b/serokell-util.cabal
@@ -1,5 +1,5 @@
 name:                serokell-util
-version:             0.1.3.1
+version:             0.1.3.2
 synopsis:            General-purpose functions by Serokell
 homepage:            https://github.com/serokell/serokell-util
 license:             MIT
@@ -75,6 +75,7 @@
                      , formatting
                      , hashable >= 1.2.4.0
                      , lens
+                     , log-warper
                      , monad-control
                      , mtl
                      , optparse-applicative
diff --git a/src/Serokell/Util/Lens.hs b/src/Serokell/Util/Lens.hs
--- a/src/Serokell/Util/Lens.hs
+++ b/src/Serokell/Util/Lens.hs
@@ -10,8 +10,10 @@
        ) where
 
 import qualified Control.Lens               as L
+import           Control.Monad.Reader       (ReaderT)
 import           Control.Monad.State        (State, get, runState)
 import           Control.Monad.Trans.Except (ExceptT, mapExceptT)
+import           System.Wlog                (LoggerName, LoggerNameBox (..))
 
 -- I don't know how to call these operators
 
@@ -36,3 +38,7 @@
 
 _UnwrappedM :: WrappedM m => L.Iso' (UnwrappedM m a) (m a)
 _UnwrappedM = L.from _WrappedM
+
+instance Monad m => WrappedM (LoggerNameBox m) where
+    type UnwrappedM (LoggerNameBox m) = ReaderT LoggerName m
+    _WrappedM = L.iso loggerNameBoxEntry LoggerNameBox