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

📝 RunEffects.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 09:51:44 -05:00
parent 9c481b6567
commit af5a9355dc
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/Effect.hs
View File

@ -14,6 +14,7 @@ import Data.Set
run :: RunEffects fs a => Eff fs a -> Final fs a
run = Effect.run . runEffects
-- | A typeclass to run a computation to completion, interpreting each effect with some sensible defaults.
class RunEffects fs a where
type Final fs a
runEffects :: Eff fs a -> Eff '[] (Final fs a)