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

Rename a couple of copy-pasta’d variables.

Browse Source
This commit is contained in:
Rob Rix 2019-07-29 15:36:37 -04:00
parent a04ccbb08c
commit 34da6ada5c
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-core/src/Analysis/ImportGraph.hs
View File

@ -103,7 +103,7 @@ importGraphAnalysis = Analysis{..}
bind _ _ m = m
lookupEnv = pure . Just
deref addr = gets (Map.lookup addr >=> nonEmpty . Set.toList) >>= maybe (pure Nothing) (foldMapA (pure . Just))
assign addr ty = modify (Map.insertWith (<>) addr (Set.singleton ty))
assign addr v = modify (Map.insertWith (<>) addr (Set.singleton v))
abstract _ name body = do
loc <- ask
pure (Value (Closure loc name body) mempty)

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

@ -93,7 +93,7 @@ scopeGraphAnalysis = Analysis{..}
local (Map.insert name loc) m
lookupEnv = pure . Just
deref addr = gets (Map.lookup addr >=> nonEmpty . Set.toList) >>= maybe (pure Nothing) (foldMapA (pure . Just))
assign addr ty = modify (Map.insertWith (<>) addr (Set.singleton ty))
assign addr v = modify (Map.insertWith (<>) addr (Set.singleton v))
abstract eval name body = do
addr <- alloc name
assign name (mempty @ScopeGraph)