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

Generalize raiseHandler.

Browse Source
This commit is contained in:
Rob Rix 2018-04-25 12:47:45 -04:00
parent 22c8fec448
commit a4bef770cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Effect.hs
View File

@ -26,7 +26,7 @@ instance Effectful Eff where
raise = id
lower = id
raiseHandler :: Effectful m => (Eff (effect ': effects) a -> Eff effects b) -> m (effect ': effects) a -> m effects b
raiseHandler :: Effectful m => (Eff effectsA a -> Eff effectsB b) -> m effectsA a -> m effectsB b
raiseHandler handler = raise . handler . lower