Do toLower earlier

This commit is contained in:
Joseph C. Sible 2020-02-09 21:40:05 -05:00
parent 292b0840d9
commit 8e9290badb
1 changed files with 1 additions and 1 deletions

View File

@ -2594,7 +2594,7 @@ checkUnsupported params t =
(name, support) = shellSupport t (name, support) = shellSupport t
report s = err (getId t) 2127 $ report s = err (getId t) 2127 $
"To use " ++ s ++ ", specify #!/usr/bin/env " ++ "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 -- TODO: Move more of these checks here
shellSupport t = shellSupport t =