Avoid $ trigger TH

2022-12-11 16:37:49 -08:00 · 2022-12-11 16:37:49 -08:00 · 8754c21244
parent 985ca2530d
commit 8754c21244
1 changed files with 1 additions and 1 deletions
--- a/src/ShellCheck/Formatter/CheckStyle.hs
+++ b/src/ShellCheck/Formatter/CheckStyle.hs
@ -88,7 +88,7 @@ outputError file error = putStrLn $ concat [
 attr s v = concat [ s, "='", escape v, "' " ]
 escape = concatMap escape'
 escape' c = if isOk c then [c] else "&#" ++ show (ord c) ++ ";"
-isOk x = any ($x) [isAsciiUpper, isAsciiLower, isDigit, (`elem` " ./")]
+isOk x = any ($ x) [isAsciiUpper, isAsciiLower, isDigit, (`elem` " ./")]

 severity "error" = "error"
 severity "warning" = "warning"