diff --git a/CHANGES.md b/CHANGES.md
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,3 +1,8 @@
+1.5.1
+=====
+
+* Add `usingNamedPureLogger` to `PureLogging`.
+
 1.5.0
 =====
 
diff --git a/log-warper.cabal b/log-warper.cabal
--- a/log-warper.cabal
+++ b/log-warper.cabal
@@ -1,5 +1,5 @@
 name:                log-warper
-version:             1.5.0
+version:             1.5.1
 synopsis:            Flexible, configurable, monadic and pretty logging
 homepage:            https://github.com/serokell/log-warper
 license:             MIT
diff --git a/src/System/Wlog/PureLogging.hs b/src/System/Wlog/PureLogging.hs
--- a/src/System/Wlog/PureLogging.hs
+++ b/src/System/Wlog/PureLogging.hs
@@ -20,6 +20,7 @@
        , NamedPureLogger (..)
        , runNamedPureLog
        , launchNamedPureLog
+       , usingPureLoggerName
        ) where
 
 import           Universum
@@ -61,7 +62,7 @@
     hoist f = PureLogger . hoist f . runPureLogger
 
 -- | Return log of pure logging action as list of 'LogEvent'.
-runPureLog :: Monad m => PureLogger m a -> m (a, [LogEvent])
+runPureLog :: Functor m => PureLogger m a -> m (a, [LogEvent])
 runPureLog = fmap (second toList) . flip runStateT mempty . runPureLogger
 
 -- | Logs all 'LogEvent'`s from given list. This function supposed to
@@ -113,7 +114,7 @@
 runNamedPureLog (NamedPureLogger action) =
     askLoggerName >>= (`usingLoggerName` runPureLog action)
 
--- | Similar as `launchPureLog`, but provides logger name from current context.
+-- | Similar to 'launchPureLog', but provides logger name from current context.
 launchNamedPureLog
     :: (WithLogger n, Monad m)
     => (forall f. Functor f => m (f a) -> n (f b))
@@ -123,3 +124,11 @@
     name <- askLoggerName
     (logs, res) <- hoist' $ swap <$> usingLoggerName name (runPureLog action)
     res <$ dispatchEvents logs
+
+-- | Similar to 'runNamedPureLog', but using provided logger name.
+usingPureLoggerName :: Functor m
+                    => LoggerName
+                    -> NamedPureLogger m a
+                    -> m (a, [LogEvent])
+usingPureLoggerName name (NamedPureLogger action) =
+    usingLoggerName name $ runPureLog action