github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 01:47:01 +03:00
Code Issues Projects Releases Wiki Activity

🔥 askLoc.

Browse Source
This commit is contained in:
Rob Rix 2019-10-10 13:49:36 -04:00
parent ef36ded16c
commit f15feb0ca3
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
semantic-core/src/Analysis/ScopeGraph.hs
View File

@ -102,7 +102,7 @@ scopeGraphAnalysis
scopeGraphAnalysis = Analysis{..}
where alloc = pure
bind name _ m = do
loc <- askLoc
loc <- Loc <$> ask <*> ask
local (Map.insert name loc) m
lookupEnv = pure . Just
deref addr = do
@ -136,6 +136,5 @@ scopeGraphAnalysis = Analysis{..}
_ ... m = pure (Just m)
askRef = Ref <$> ask <*> ask
askLoc = Loc <$> ask <*> ask
extendBinding addr ref bindLoc = ScopeGraph (maybe Map.empty (\ (Loc path span) -> Map.singleton (Decl addr path span) (Set.singleton ref)) bindLoc)