From e7e0e5c01c4b0935a4fd4a6e931d0f7830175fdc Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Fri, 20 Jan 2017 14:11:41 -0500
Subject: [PATCH] :fire: an apparently redundant $!.

---
 src/Language/JavaScript.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Language/JavaScript.hs b/src/Language/JavaScript.hs
index 45260db92..69763e338 100644
--- a/src/Language/JavaScript.hs
+++ b/src/Language/JavaScript.hs
@@ -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