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

Move reference into case maybeConstructor

Browse Source
This commit is contained in:
joshvera 2018-12-20 20:01:41 -05:00
parent d830cd1f2a
commit 64d847833c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Syntax/Expression.hs
View File

@ -660,11 +660,11 @@ instance Evaluatable New where
-- TODO: This is a typescript specific name and we should allow languages to customize it. -- TODO: This is a typescript specific name and we should allow languages to customize it.
let constructorName = Name.name "constructor" let constructorName = Name.name "constructor"
span <- ask @Span
reference (Reference constructorName) span ScopeGraph.New (Declaration constructorName)
maybeConstructor <- maybeLookupDeclaration (Declaration constructorName) maybeConstructor <- maybeLookupDeclaration (Declaration constructorName)
case maybeConstructor of case maybeConstructor of
Just slot -> do Just slot -> do
span <- ask @Span
reference (Reference constructorName) span ScopeGraph.New (Declaration constructorName)
constructor <- deref slot constructor <- deref slot
args <- traverse eval arguments args <- traverse eval arguments
boundConstructor <- bindThis objectVal constructor boundConstructor <- bindThis objectVal constructor