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

📝 Result.

Browse Source
This commit is contained in:
Rob Rix 2017-12-21 09:55:29 -05:00
parent 6bd0550804
commit 54dbd0785b
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

@ -32,6 +32,7 @@ instance RunEffect f a => RunEffects '[f] a where
-- | A typeclass to interpret a single effect with some sensible defaults (defined per-effect).
class RunEffect f a where
-- | The incremental result of an effect w.r.t. the parameter value, factoring in the interpretation of the effect.
type Result f a
type instance Result f a = a
runEffect :: Eff (f ': fs) a -> Eff fs (Result f a)