Do toLower earlier

2020-02-09 21:40:05 -05:00 · 2020-02-09 21:40:05 -05:00 · 8e9290badb
parent 292b0840d9
commit 8e9290badb
1 changed files with 1 additions and 1 deletions
--- a/src/ShellCheck/Analytics.hs
+++ b/src/ShellCheck/Analytics.hs
@ -2594,7 +2594,7 @@ checkUnsupported params t =
    (name, support) = shellSupport t
    report s = err (getId t) 2127 $
        "To use " ++ s ++ ", specify #!/usr/bin/env " ++
-            (map toLower . intercalate " or " . map show $ support)
+            (intercalate " or " . map (map toLower . show) $ support)

 -- TODO: Move more of these checks here
 shellSupport t =