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

🔥 an apparently redundant $!.

Browse Source
This commit is contained in:
Rob Rix 2017-01-20 14:11:41 -05:00
parent c16e75c670
commit e7e0e5c01c
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/Language/JavaScript.hs
View File

@ -21,7 +21,7 @@ termAssignment
termAssignment source (_ :. category :. _ :. Nil) children allChildren
| category `elem` operators = do
allChildren' <- allChildren
pure $! Just (S.Operator allChildren')
pure (Just (S.Operator allChildren'))
| otherwise = pure $! Just $ case (category, children) of
(Return, _) -> S.Return children
(Assignment, [ identifier, value ]) -> S.Assignment identifier value