Do toLower earlier
This commit is contained in:
parent
292b0840d9
commit
8e9290badb
|
@ -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 =
|
||||||
|
|
Loading…
Reference in New Issue