HLint

ndmitchell · Jan 27, 2020 · c2f20dd9b7f48cb8ca451cd2d50305cded713c9c · c2f20dd
1 parent 26b5c76
commit c2f20dd9b7f48cb8ca451cd2d50305cded713c9c
Unified Split

Showing with 1 addition and 2 deletions.

+1 −2 src/General/Web.hs
diff --git a/src/General/Web.hs b/src/General/Web.hs
@@ -50,8 +50,7 @@ readInput (breakOn "?" -> (a,b)) =
     parseArgs = map (UTF8.toString *** maybe "" UTF8.toString)
               . parseQuery
               . UTF8.fromString
-    badArgs = any (any (not . isLower))
-            . map fst
+    badArgs = not . all (all isLower . fst)
 
 data Output
     = OutputText LBS.ByteString