Correcting monad-control > 1.0 associated type instance implementation
commit492b7db9119a88d0da67a9568db66759b5fac3c4
authorBrendan Hay <brendan.g.hay@gmail.com>
dateWed 28 Jan 2015, 10:35 (12 years ago)
parentfc7d5dc
src/Control/Monad/Trans/PagerDuty.hs+1−1
@@ -90,7 +90,7 @@ instance MonadTransControl (PagerDutyT s) where
9090 f (h . g . unPagerDutyT)
9191 {-# INLINE liftWith #-}
9292
93− restoreT = PagerDutyT . restoreT . restoreT . liftM unStT
93+ restoreT = PagerDutyT . restoreT . restoreT
9494 {-# INLINE restoreT #-}
9595
9696instance MonadBaseControl b m => MonadBaseControl b (PagerDutyT s m) where