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

Remove extraneous do

Browse Source
This commit is contained in:
Timothy Clem 2018-07-19 10:36:30 -07:00
parent f2e16aeb19
commit 549adf887c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Analysis/Abstract/Graph.hs
View File

@ -151,7 +151,7 @@ variableDefinition :: ( Member (Env (Hole (Located address))) effects
variableDefinition var name = do
context <- ask
case context of
Just c -> do appendGraph $ vertex c `connect` vertex var
Just c -> appendGraph $ vertex c `connect` vertex var
_ -> pure ()
definedInModuleVertex <- maybe lowerBound (maybe lowerBound (vertex . moduleVertex . addressModule) . toMaybe) <$> TermEvaluator (lookupEnv name)
appendGraph $ vertex var `connect` definedInModuleVertex