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

Use the RightModule instance for CoreF to define the Monad instance for Core.

Browse Source
This commit is contained in:
Rob Rix 2019-07-17 11:24:57 -04:00
parent e63e04724a
commit 1e3e8dd425
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
semantic-core/src/Data/Core.hs
View File

@ -66,7 +66,8 @@ instance Applicative Core where
(<*>) = ap (<*>) = ap
instance Monad Core where instance Monad Core where
a >>= f = iter id Core Var f a Var a >>= f = f a
Core c >>= f = Core (c >>=* f)
instance Carrier CoreF Core where instance Carrier CoreF Core where
eff = Core eff = Core