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

Remove comment

Browse Source
This commit is contained in:
joshvera 2016-06-14 09:13:24 -07:00
parent 51c2b0a484
commit a3b3bee219
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Parser.hs
View File

@ -71,8 +71,6 @@ termConstructor source info children = cofree (info :< syntax)
construct :: [Term Text Info] -> Syntax Text (Term Text Info) construct :: [Term Text Info] -> Syntax Text (Term Text Info)
construct [] = Leaf . pack . toString $ slice (characterRange info) source construct [] = Leaf . pack . toString $ slice (characterRange info) source
construct children | isAssignment (category info) = case children of construct children | isAssignment (category info) = case children of
-- x.y = 0
-- x.y
(identifier:value:[]) -> Syntax.Assignment identifier value (identifier:value:[]) -> Syntax.Assignment identifier value
construct children | isMemberAccess (category info) = case children of construct children | isMemberAccess (category info) = case children of
(base:property:[]) -> Syntax.MemberAccess base property (base:property:[]) -> Syntax.MemberAccess base property