mirror of
https://github.com/github/semantic.git
synced 2024-12-22 22:31:36 +03:00
Calling subcontext keeps the env intact
This commit is contained in:
parent
af99c51159
commit
99ec8a1758
@ -221,4 +221,4 @@ instance Ord1 Context where liftCompare = genericLiftCompare
|
||||
instance Show1 Context where liftShowsPrec = genericLiftShowsPrec
|
||||
|
||||
instance (Monad m) => Eval t v m Context where
|
||||
eval ev yield Context{..} = ev pure contextSubject >>= yield
|
||||
eval ev yield Context{..} = ev yield contextSubject
|
||||
|
@ -21,7 +21,7 @@ instance Show1 Annotation where liftShowsPrec = genericLiftShowsPrec
|
||||
|
||||
-- TODO: Specialize Eval for Type to unify the inferred type of the subject with the specified type
|
||||
instance (Monad m) => Eval t v m Annotation where
|
||||
eval recur yield Annotation{..} = recur pure annotationSubject >>= yield
|
||||
eval recur yield Annotation{..} = recur yield annotationSubject
|
||||
|
||||
|
||||
newtype Product a = Product { productElements :: [a] }
|
||||
|
Loading…
Reference in New Issue
Block a user