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

Derive the RightModule instance for Ann.

Browse Source
This commit is contained in:
Rob Rix 2019-10-28 13:26:07 -04:00
parent 904b79b462
commit 8d751c1dbc
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cabal.project
View File

@ -52,4 +52,4 @@ source-repository-package
source-repository-package
type: git
location: https://github.com/antitypical/fused-syntax.git
tag: d4ca0910d2b73f7686f57229557018973c2adc4a
tag: cb3dce1ec4b1197032da8e0c7f4fab20f9bf36b2

4
semantic-core/src/Core/Core.hs
View File

@ -233,9 +233,7 @@ data Ann ann f a
instance HFunctor (Ann ann)
instance Effect Functor (Ann ann)
instance RightModule (Ann ann) where
Ann l b >>=* f = Ann l (b >>= f)
instance RightModule (Ann ann)
ann :: Has (Ann Span) sig m => HasCallStack => m a -> m a