diff options
Diffstat (limited to 'libraries/base/GHC/ResponseFile.hs')
-rw-r--r-- | libraries/base/GHC/ResponseFile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/base/GHC/ResponseFile.hs b/libraries/base/GHC/ResponseFile.hs index 1b6c2b8647..6d3df4454b 100644 --- a/libraries/base/GHC/ResponseFile.hs +++ b/libraries/base/GHC/ResponseFile.hs @@ -77,7 +77,7 @@ getArgsWithResponseFiles = getArgs >>= expandResponse -- are between the original, un-concatenated list of strings. These -- added whitespace characters are removed from the output. -- --- > unescapeArgs "hello\\ \\\"world\\\"\n" == escapeArgs "hello \"world\"" +-- > unescapeArgs "hello\\ \\\"world\\\"\n" == ["hello \"world\""] unescapeArgs :: String -> [String] unescapeArgs = filter (not . null) . unescape @@ -96,7 +96,7 @@ unescapeArgs = filter (not . null) . unescape -- and thus will always escape any whitespace, quotes, and -- backslashes. -- --- > unescapeArgs "hello\\ \\\"world\\\"\\n" == escapeArgs "hello \"world\"" +-- > escapeArgs ["hello \"world\""] == "hello\\ \\\"world\\\"\n" escapeArgs :: [String] -> String escapeArgs = unlines . map escapeArg |