From 057cc714b3afc3530ab07978bd24320e84ab1137 Mon Sep 17 00:00:00 2001
From: "Joseph C. Sible" <josephcsible@users.noreply.github.com>
Date: Sun, 9 Feb 2020 20:36:14 -0500
Subject: [PATCH] Simplify matchToken

---
 src/ShellCheck/Analytics.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/ShellCheck/Analytics.hs b/src/ShellCheck/Analytics.hs
index 6bd1e5d..854dac7 100644
--- a/src/ShellCheck/Analytics.hs
+++ b/src/ShellCheck/Analytics.hs
@@ -1220,10 +1220,7 @@ checkLiteralBreakingTest _ t = sequence_ $
   where
     hasEquals = matchToken ('=' `elem`)
     isNonEmpty = matchToken (not . null)
-    matchToken m t = isJust $ do
-        str <- getLiteralString t
-        guard $ m str
-        return ()
+    matchToken m t = maybe False m (getLiteralString t)
 
     comparisonWarning list = do
         token <- find hasEquals list