github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 16:02:43 +03:00
Code Issues Projects Releases Wiki Activity

Define a typeclass for lifting effects into some wrapping context.

Browse Source
This commit is contained in:
Rob Rix 2018-03-07 11:04:53 -05:00
parent 86fb1a8706
commit 0087c5a1d1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Control/Effect.hs
View File

@ -63,3 +63,7 @@ instance Ord a => RunEffect NonDetEff a where
runEffect = relay (pure . point) (\ m k -> case m of
MZero -> pure mempty
MPlus -> mappend <$> k True <*> k False)
class LiftEffect f where
lift :: Eff effects a -> f effects a