Add support to read command line arguments supplied via response files (#9)
authorChaitanya Koparkar <ckoparkar@gmail.com>
Thu, 10 May 2018 15:44:25 +0000 (11:44 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Thu, 10 May 2018 15:44:25 +0000 (11:44 -0400)
See https://ghc.haskell.org/trac/ghc/ticket/13896

Main.hs
changelog.md

diff --git a/Main.hs b/Main.hs
index 60c7276..4ee3e2e 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -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
index 7a211bc..8fa2f27 100644 (file)
@@ -1,3 +1,8 @@
+## 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