diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
| commit | e78475737636a5d1e0d0a36b475c300cc7bb56cc (patch) | |
| tree | 1d88de569e951b66ff5321eefaec49ad4b33bf89 /Utility.hs | |
| parent | 9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff) | |
hlint tweaks
Did all sources except Remotes/* and Command/*
Diffstat (limited to 'Utility.hs')
| -rw-r--r-- | Utility.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility.hs b/Utility.hs index 63fa6eda3..786c6a177 100644 --- a/Utility.hs +++ b/Utility.hs @@ -141,9 +141,9 @@ shellUnEscape s = word : shellUnEscape rest {- For quickcheck. -} prop_idempotent_shellEscape :: String -> Bool -prop_idempotent_shellEscape s = [s] == (shellUnEscape $ shellEscape s) +prop_idempotent_shellEscape s = [s] == (shellUnEscape . shellEscape) s prop_idempotent_shellEscape_multiword :: [String] -> Bool -prop_idempotent_shellEscape_multiword s = s == (shellUnEscape $ unwords $ map shellEscape s) +prop_idempotent_shellEscape_multiword s = s == (shellUnEscape . unwords . map shellEscape) s {- A version of hgetContents that is not lazy. Ensures file is - all read before it gets closed. -} |