diff options
| author | randen <randen@users.noreply.github.com> | 2015-07-30 14:49:08 -0700 |
|---|---|---|
| committer | randen <randen@users.noreply.github.com> | 2015-07-30 14:49:08 -0700 |
| commit | 9affe8f6b3a9b07367c8c14162aecea8b15856a6 (patch) | |
| tree | d0839307c860e6e9c26bf4841c90a2105bfc1112 /driver/Main.hs | |
| parent | b7fa3020ca8af55688c45a219a5418b21d91beec (diff) | |
Break the response file by line termination rather
than spaces, since spaces may be within the parameters.
This simple approach avoids having the need for any
quoting and/or escaping (although a newline char will
not be possible in a parameter and has no escape
mechanism to allow it).
Diffstat (limited to 'driver/Main.hs')
| -rw-r--r-- | driver/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/Main.hs b/driver/Main.hs index 5097a86d..ccbb8b7d 100644 --- a/driver/Main.hs +++ b/driver/Main.hs @@ -20,7 +20,7 @@ expandResponse :: [String] -> IO [String] expandResponse = fmap concat . mapM expand where expand :: String -> IO [String] - expand ('@':f) = readFileExc f >>= return . filter (not . null) . words + expand ('@':f) = readFileExc f >>= return . filter (not . null) . lines expand x = return [x] readFileExc f = |