fix use of hifalutin terminology
This commit is contained in:
parent
be86081ff4
commit
b0626230b7
7 changed files with 29 additions and 29 deletions
|
@ -105,10 +105,10 @@ shellUnEscape s = word : shellUnEscape rest
|
|||
| otherwise = inquote q (w++[c]) cs
|
||||
|
||||
-- | For quickcheck.
|
||||
prop_idempotent_shellEscape :: String -> Bool
|
||||
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_isomorphic_shellEscape :: String -> Bool
|
||||
prop_isomorphic_shellEscape s = [s] == (shellUnEscape . shellEscape) s
|
||||
prop_isomorphic_shellEscape_multiword :: [String] -> Bool
|
||||
prop_isomorphic_shellEscape_multiword s = s == (shellUnEscape . unwords . map shellEscape) s
|
||||
|
||||
-- | Segments a list of filenames into groups that are all below the maximum
|
||||
-- command-line length limit.
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue