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