github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00
Code Issues Projects Releases Wiki Activity

Filter Export edges so we don't traverse them in the tests

Browse Source
This commit is contained in:
joshvera 2018-11-29 19:36:58 -05:00
parent 13802ab4b1
commit b2bbd0e78c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Abstract/ScopeGraph.hs
View File

@ -31,6 +31,7 @@ module Data.Abstract.ScopeGraph
import Control.Abstract.Hole
import Data.Abstract.Name
import qualified Data.Map.Strict as Map
import qualified Data.Set as Set
import Data.Span
import Prelude hiding (lookup)
import Prologue
@ -191,7 +192,7 @@ lookupDeclaration declaration scope g = do
declarationNames :: Ord address => Scope address -> ScopeGraph address -> [Declaration]
declarationNames scope scopeGraph = localDeclarations <> edgeNames
where addresses = join (Map.elems (edges scope))
where addresses = join (Map.elems $ Map.withoutKeys (edges scope) (Set.singleton Export))
edgeNames = addresses >>= toList . flip lookupScope scopeGraph >>= flip declarationNames scopeGraph
localDeclarations = toList . fmap fst $ declarations scope