github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 04:10:29 +03:00
Code Issues Projects Releases Wiki Activity

💅

Browse Source
This commit is contained in:
Rick Winfrey 2019-01-15 17:22:15 -08:00
parent 89ad50eb9a
commit 0fc01f2149
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Control/Abstract/ScopeGraph.hs
View File

@ -66,6 +66,7 @@ declare :: ( Carrier sig m
)
=> Declaration
-> Relation
-> AccessControl
-> Span
-> Maybe address
-> Evaluator term address value m ()
@ -167,8 +168,8 @@ lookupScope :: ( Member (Resumable (BaseError (ScopeError address))) sig
, Carrier sig m
, Ord address
)
=> address
-> Evaluator term address value m (Scope address)
=> address
-> Evaluator term address value m (Scope address)
lookupScope address = maybeM (throwScopeError LookupScopeError) . ScopeGraph.lookupScope address =<< get
declarationsByRelation :: ( Member (State (ScopeGraph address)) sig