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

Update 📝 for insertDeclarationScope

Browse Source
This commit is contained in:
Rick Winfrey 2018-12-12 16:21:00 -08:00
parent 4f9b717dad
commit 5bca5276b8
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

@ -207,7 +207,8 @@ insertEdge label target currentAddress g@(ScopeGraph graph) = fromMaybe g $ do
pure (ScopeGraph (Map.insert currentAddress newScope graph))
-- | Insert associate the given associated scope into the declaration in the scope graph.
-- | Update the 'Scope' containing a 'Declaration' with an associated scope address.
-- Returns an unmodified 'ScopeGraph' if the 'Declaration' cannot be found with the given scope address.
insertDeclarationScope :: Ord scopeAddress => Declaration -> scopeAddress -> scopeAddress -> ScopeGraph scopeAddress -> ScopeGraph scopeAddress
insertDeclarationScope decl@Declaration{..} address currentAddress g@(ScopeGraph graph) = fromMaybe g $ do
declScope <- pathDeclarationScope currentAddress =<< lookupScopePath unDeclaration currentAddress g