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

Define a RightModule instance.

Browse Source
This commit is contained in:
Rob Rix 2019-07-17 11:03:10 -04:00
parent 497e0dd226
commit f72070d378
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
semantic-core/src/Data/Scope.hs
View File

@ -17,6 +17,7 @@ module Data.Scope
import Control.Applicative (liftA2)
import Control.Effect.Carrier
import Control.Monad ((>=>), guard)
import Control.Monad.Module
import Control.Monad.Trans.Class
import Data.Function (on)
@ -69,6 +70,9 @@ instance Monad f => Monad (Scope a f) where
instance MonadTrans (Scope a) where
lift = Scope . pure . S
instance RightModule (Scope a) where
Scope m >>=* f = Scope (fmap (>>= f) <$> m)
foldScope :: (forall a . Incr z (n a) -> m (Incr z (n a)))
-> (forall x y . (x -> m y) -> f x -> n y)