From 0aea1a7b93031cefae525ab4436e5b9a2ae81394 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 21 Jan 2019 15:41:35 -0400 Subject: [PATCH] fix inverted logic --- Logs/Remote.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Logs/Remote.hs b/Logs/Remote.hs index a2e6049a86..4f83293612 100644 --- a/Logs/Remote.hs +++ b/Logs/Remote.hs @@ -95,7 +95,7 @@ prop_parse_show_Config c -- whitespace and '=' are not supported in config keys | any (\k -> any isSpace k || elem '=' k) (M.keys c) = True -- limit to alphanumerics for simplicity - | any (all isAlphaNum) (M.keys c) = True + | any (not . all isAlphaNum) (M.keys c) = True | otherwise = A.parseOnly remoteConfigParser (encodeBS $ showConfig c) ~~ Right c where normalize v = sort . M.toList <$> v