serokell-util 0.1.3.1 → 0.1.3.2

raw patch · 2 files changed

+8/−1 lines, 2 filesdep +log-warpernew-uploaderPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependencies added: log-warper

API changes (from Hackage documentation)

Files

• serokell-util.cabal +2/−1
• src/Serokell/Util/Lens.hs +6/−0

@@ -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

@@ -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