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

s/cases/_

Browse Source
This commit is contained in:
joshvera 2016-06-16 15:14:53 -07:00
parent b73cb5f478
commit 70441b9a93
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

@ -68,7 +68,7 @@ termConstructor source info = cofree . construct
toVarDecl :: Term Text Info -> Term Text Info toVarDecl :: Term Text Info -> Term Text Info
toVarDecl child = cofree $ ((extract child) { category = VarDecl } :< S.VarDecl child) toVarDecl child = cofree $ ((extract child) { category = VarDecl } :< S.VarDecl child)
construct children | Switch == category info , (expr:cases) <- children = construct children | Switch == category info , (expr:_) <- children =
withDefaultInfo $ S.Switch expr children withDefaultInfo $ S.Switch expr children
construct children | Case == category info , [expr, body] <- children = construct children | Case == category info , [expr, body] <- children =