mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
s/cases/_
This commit is contained in:
parent
b73cb5f478
commit
70441b9a93
@ -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 =
|
||||||
|
Loading…
Reference in New Issue
Block a user