github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Add SubscriptAccess case to termConstructor

Browse Source
This commit is contained in:
Rick Winfrey 2016-06-17 14:38:50 -05:00
parent 34359f80ee
commit 4f5141c59e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Parser.hs
View File

@ -46,6 +46,8 @@ termConstructor source info = cofree . construct
(identifier:value:[]) -> withDefaultInfo $ S.Assignment identifier value (identifier:value:[]) -> withDefaultInfo $ S.Assignment identifier value
construct children | MemberAccess == category info = case children of construct children | MemberAccess == category info = case children of
(base:property:[]) -> withDefaultInfo $ S.MemberAccess base property (base:property:[]) -> withDefaultInfo $ S.MemberAccess base property
construct children | SubscriptAccess == category info = case children of
(base:element:[]) -> withDefaultInfo $ S.SubscriptAccess base element
construct children | Function == category info = withDefaultInfo $ case children of construct children | Function == category info = withDefaultInfo $ case children of
(body:[]) -> S.Function Nothing Nothing body (body:[]) -> S.Function Nothing Nothing body
(params:body:[]) | (info :< _) <- runCofree params, Params == category info -> (params:body:[]) | (info :< _) <- runCofree params, Params == category info ->