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

Parse Constructor syntax

Browse Source
This commit is contained in:
joshvera 2016-07-30 14:26:32 -04:00
parent a625302391
commit a456a4f64e
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

@ -101,5 +101,7 @@ termConstructor source sourceSpan info = cofree . construct
withDefaultInfo $ S.While expr body
construct children | DoWhile == (category info), [expr, body] <- children =
withDefaultInfo $ S.DoWhile expr body
construct children | Constructor == category info, [expr] <- children =
withDefaultInfo $ S.Constructor expr
construct children =
withDefaultInfo $ S.Indexed children