Commit 0535fe65 authored by Chaitanya Koparkar's avatar Chaitanya Koparkar Committed by Ryan Scott

Add support to read command line arguments supplied via response files (#9)

See https://ghc.haskell.org/trac/ghc/ticket/13896
parent 36769c3a
......@@ -44,6 +44,9 @@ import Data.Version ( showVersion )
import System.Environment ( getExecutablePath )
import System.FilePath ( takeDirectory, (</>) )
#endif
#if MIN_VERSION_base(4,12,0)
import GHC.ResponseFile ( getArgsWithResponseFiles )
#endif
import Common
import CrossCodegen
......@@ -74,7 +77,11 @@ main = do
prog <- getProgramName
let header = "Usage: "++prog++" [OPTIONS] INPUT.hsc [...]\n"
usage = usageInfo header options
#if MIN_VERSION_base(4,12,0)
args <- getArgsWithResponseFiles
#else
args <- getArgs
#endif
let (fs, files, errs) = getOpt Permute options args
let mode = foldl (.) id fs emptyMode
case mode of
......
## next
- Add support to read command line arguments supplied via response files
([#13896](https://ghc.haskell.org/trac/ghc/ticket/13388))
## 0.68.2
- Support GHC 8.2.1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment