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

Update VariableDeclarations

Browse Source
This commit is contained in:
Rick Winfrey 2019-03-14 17:20:29 -07:00
parent 79e144d73a
commit e9b5e5760d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Data/Syntax/Declaration.hs
View File

@ -165,9 +165,8 @@ instance Evaluatable VariableDeclaration where
eval _ _ (VariableDeclaration []) = unit eval _ _ (VariableDeclaration []) = unit
eval eval _ (VariableDeclaration decs) = do eval eval _ (VariableDeclaration decs) = do
for_ decs $ \declaration -> do for_ decs $ \declaration -> do
name <- maybeM (throwNoNameError declaration) (declaredName declaration) let span = getSpan declaration
let declarationSpan = getSpan declaration _ <- declareMaybeName (declaredName declaration) Default ScopeGraph.Public span ScopeGraph.VariableDeclaration Nothing
declare (Declaration name) Default ScopeGraph.Public declarationSpan ScopeGraph.VariableDeclaration Nothing
eval declaration eval declaration
unit unit