github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00
Code Issues Projects Releases Wiki Activity

Flatten the JS try/catch/finally patterns.

Browse Source
This commit is contained in:
Rob Rix 2017-01-20 15:42:11 -05:00
parent f68de599a7
commit 6d615d0f00
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/Language/JavaScript.hs
View File

@ -42,18 +42,17 @@ termAssignment source (_ :. category :. _ :. Nil) children
(DoWhile, [ expr, body ]) -> Just $ S.DoWhile expr body
(Throw, [ expr ]) -> Just $ S.Throw expr
(Constructor, [ expr ]) -> Just $ S.Constructor expr
(Try, body : rest) | null rest
-> Just $ S.Try [body] [] Nothing Nothing
| [catch] <- rest
, Catch <- Info.category (extract catch)
-> Just $ S.Try [body] [catch] Nothing Nothing
| [finally] <- rest
, Finally <- Info.category (extract finally)
-> Just $ S.Try [body] [] Nothing (Just finally)
| [ catch, finally ] <- rest
, Catch <- Info.category (extract catch)
, Finally <- Info.category (extract finally)
-> Just $ S.Try [body] [catch] Nothing (Just finally)
(Try, [ body ]) -> Just $ S.Try [body] [] Nothing Nothing
(Try, [ body, catch ])
| Catch <- Info.category (extract catch)
-> Just $ S.Try [body] [catch] Nothing Nothing
(Try, [ body, finally ])
| Finally <- Info.category (extract finally)
-> Just $ S.Try [body] [] Nothing (Just finally)
(Try, [ body, catch, finally ])
| Catch <- Info.category (extract catch)
, Finally <- Info.category (extract finally)
-> Just $ S.Try [body] [catch] Nothing (Just finally)
(ArrayLiteral, _) -> Just $ S.Array Nothing children
(Method, [ identifier, params, exprs ]) -> Just $ S.Method identifier Nothing (toList (unwrap params)) (toList (unwrap exprs))
(Method, [ identifier, exprs ]) -> Just $ S.Method identifier Nothing [] (toList (unwrap exprs))