github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

📝 raiseHandler.

Browse Source
This commit is contained in:
Rob Rix 2018-10-22 12:27:50 -04:00
parent 9fbbd9a667
commit a06ede905e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Control/Abstract/Evaluator.hs
View File

@ -45,6 +45,7 @@ instance Carrier sig m => Carrier sig (Evaluator term address value m) where
eff = Evaluator . eff . handlePure runEvaluator eff = Evaluator . eff . handlePure runEvaluator
-- | Raise a handler on 'Eff's into a handler on 'Evaluator's.
raiseHandler :: (Eff m a -> Eff n b) raiseHandler :: (Eff m a -> Eff n b)
-> Evaluator term address value m a -> Evaluator term address value m a
-> Evaluator term address value n b -> Evaluator term address value n b