github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

📝 revive.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 10:48:12 -05:00
parent 3d52ec38a0
commit 1d34f15ca5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Monad/Effect/Dead.hs
View File

@ -14,6 +14,8 @@ newtype Dead a = Dead { unDead :: Set a }
class Monad m => MonadDead t m where class Monad m => MonadDead t m where
-- | Update the current 'Dead' set. -- | Update the current 'Dead' set.
killAll :: Dead t -> m () killAll :: Dead t -> m ()
-- | Revive a single term, removing it from the current 'Dead' set.
revive :: Ord t => t -> m () revive :: Ord t => t -> m ()
instance (State (Dead t) :< fs) => MonadDead t (Eff fs) where instance (State (Dead t) :< fs) => MonadDead t (Eff fs) where