SimpleLog 0.1.0.2 → 0.1.0.3
raw patch · 2 files changed
+8/−8 lines, 2 filesdep ~monad-controlPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: monad-control
API changes (from Hackage documentation)
Files
- SimpleLog.cabal +2/−2
- src/System/Log/SLog.hs +6/−6
SimpleLog.cabal view
@@ -1,5 +1,5 @@ name: SimpleLog-version: 0.1.0.2+version: 0.1.0.3 synopsis: Simple, configurable logging description: SimpleLog allows configurable multi-threaded logging license: BSD3@@ -29,7 +29,7 @@ containers < 1, resourcet < 2 && >= 1, transformers-base < 1,- monad-control < 1,+ monad-control == 1.*, text < 2 && >= 1, th-lift < 1, semigroups < 1
src/System/Log/SLog.hs view
@@ -292,17 +292,17 @@ deriving instance (MonadBase IO m, MonadThrow m, MonadIO m) => MonadResource (SLogT m) instance MonadTransControl SLogT where- newtype StT SLogT a = StTSLogT {unStTSLogT :: StT ResourceT a}+ type StT SLogT a = StT ResourceT a liftWith f = SLogT . ReaderT $ \r -> liftWith $ \lres -> f $ \(SLogT t) ->- liftM StTSLogT $ lres $ runReaderT t r- restoreT = SLogT . lift . restoreT . liftM unStTSLogT+ lres $ runReaderT t r+ restoreT = SLogT . lift . restoreT instance (MonadBaseControl IO m) => MonadBaseControl IO (SLogT m) where- newtype StM (SLogT m) a = StMSLogT { unStMSLogT :: ComposeSt SLogT m a }- liftBaseWith = defaultLiftBaseWith StMSLogT- restoreM = defaultRestoreM unStMSLogT+ type StM (SLogT m) a = ComposeSt SLogT m a+ liftBaseWith = defaultLiftBaseWith+ restoreM = defaultRestoreM instance MonadTrans SLogT where lift = SLogT . lift . lift