git.iko.soy/typeable/pagerduty
on develop help sign in
Correcting monad-control > 1.0 associated type instance implementation
492b7dbBrendan Hay
src/Control/Monad/Trans/PagerDuty.hs+1−1
compare with develop
unifiedsplit
@@ -90,7 +90,7 @@ instance MonadTransControl (PagerDutyT s) where
90 f (h . g . unPagerDutyT)
90 f (h . g . unPagerDutyT)
91 {-# INLINE liftWith #-}
91 {-# INLINE liftWith #-}
92
92
93− restoreT = PagerDutyT . restoreT . restoreT . liftM unStT
93+ restoreT = PagerDutyT . restoreT . restoreT
94 {-# INLINE restoreT #-}
94 {-# INLINE restoreT #-}
95
95
96instance MonadBaseControl b m => MonadBaseControl b (PagerDutyT s m) where
96instance MonadBaseControl b m => MonadBaseControl b (PagerDutyT s m) where