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

Reflect instance methods / field definitions access control when instantiating objects

Browse Source
This commit is contained in:
Rick Winfrey 2019-01-14 17:58:18 -08:00
parent ad68196124
commit 8679f360fb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -559,7 +559,11 @@ instance Evaluatable New where
void . withScopeAndFrame objectFrame $ do
for_ instanceMembers $ \Info{..} -> do
declare infoDeclaration (Default Public) infoSpan infoAssociatedScope
let relation = case infoRelation of
Instance Public -> Default Public
Instance Private -> Default Private
_ -> infoRelation
declare infoDeclaration relation infoSpan infoAssociatedScope
-- TODO: This is a typescript specific name and we should allow languages to customize it.
let constructorName = Name.name "constructor"