aboutsummaryrefslogtreecommitdiff
path: root/Logs/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-03 03:52:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-03 03:52:41 -0400
commit6543d5406c64bb00a58e74305ec9ca09a49faf0b (patch)
tree5e33ceb3ea5b5bf5ad4f2cbb7d08b19cb1026897 /Logs/Remote.hs
parentf0dd3c6c1624cb5441eab175c6f5a683d3806885 (diff)
hlint
Diffstat (limited to 'Logs/Remote.hs')
-rw-r--r--Logs/Remote.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/Remote.hs b/Logs/Remote.hs
index 55fb40f4b..89792b054 100644
--- a/Logs/Remote.hs
+++ b/Logs/Remote.hs
@@ -93,7 +93,7 @@ prop_idempotent_configEscape s = s == (configUnEscape . configEscape) s
prop_parse_show_Config :: RemoteConfig -> Bool
prop_parse_show_Config c
-- whitespace and '=' are not supported in keys
- | any (\k -> any isSpace k || any (== '=') k) (M.keys c) = True
+ | any (\k -> any isSpace k || elem '=' k) (M.keys c) = True
| otherwise = parseConfig (showConfig c) ~~ Just c
where
normalize v = sort . M.toList <$> v