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

s/f/cs

Browse Source
This commit is contained in:
joshvera 2016-08-16 22:04:36 -04:00
parent b24d12d869
commit 3a4a19b9ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Parser.hs
View File

@ -56,7 +56,7 @@ termConstructor source sourceSpan info = fmap cofree . construct
_ -> errorWith children _ -> errorWith children
construct children | isOperator (category info) = withDefaultInfo $ S.Operator children construct children | isOperator (category info) = withDefaultInfo $ S.Operator children
construct children | CommaOperator == category info = withDefaultInfo $ case children of construct children | CommaOperator == category info = withDefaultInfo $ case children of
[child, rest] | S.Indexed f <- unwrap rest -> S.Indexed $ child : toList f [child, rest] | S.Indexed cs <- unwrap rest -> S.Indexed $ child : toList cs
_ -> S.Indexed children _ -> S.Indexed children
construct children | Function == category info = case children of construct children | Function == category info = case children of
(body:[]) -> withDefaultInfo $ S.Function Nothing Nothing body (body:[]) -> withDefaultInfo $ S.Function Nothing Nothing body