diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-03 03:52:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-03 03:52:41 -0400 |
| commit | 6543d5406c64bb00a58e74305ec9ca09a49faf0b (patch) | |
| tree | 5e33ceb3ea5b5bf5ad4f2cbb7d08b19cb1026897 /Logs/Remote.hs | |
| parent | f0dd3c6c1624cb5441eab175c6f5a683d3806885 (diff) | |
hlint
Diffstat (limited to 'Logs/Remote.hs')
| -rw-r--r-- | Logs/Remote.hs | 2 |
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 |