Use pattern matching instead of head

2020-02-02 00:13:16 -05:00 · 2020-02-02 00:13:16 -05:00 · 115ef29079
parent 76b798394f
commit 115ef29079
1 changed files with 1 additions and 1 deletions
--- a/src/ShellCheck/Analytics.hs
+++ b/src/ShellCheck/Analytics.hs
@ -1298,7 +1298,7 @@ checkArithmeticDeref params t@(TA_Expansion _ [b@(T_DollarBraced id _ _)]) =
    unless (isException $ bracedString b) getWarning
  where
    isException [] = True
-    isException s = any (`elem` "/.:#%?*@$-!+=^,") s || isDigit (head s)
+    isException s@(h:_) = any (`elem` "/.:#%?*@$-!+=^,") s || isDigit h
    getWarning = fromMaybe noWarning . msum . map warningFor $ parents params t
    warningFor t =
        case t of