Don't expand @response-files after first '--'.

Fixes #6050.
haskell · May 17, 2019 · 27ef964 · 27ef964 · phadej · May 18, 2019
1 parent 37e7ab1
commit 27ef964
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cabal-install/main/Main.hs b/cabal-install/main/Main.hs
@@ -231,7 +231,8 @@ main' = do
   -- when writing to stderr and stdout.
   relaxEncodingErrors stdout
   relaxEncodingErrors stderr
-  getArgs >>= expandResponse >>= mainWorker
+  (args0, args1) <- break (== "--") <$> getArgs
+  mainWorker =<< (++ args1) <$> expandResponse args0
 
 mainWorker :: [String] -> IO ()
 mainWorker args = do