From 27ef964abfa78e9b2013e51bd197f6c2321a36d0 Mon Sep 17 00:00:00 2001
From: Mikhail Glushenkov <mikhail.glushenkov@gmail.com>
Date: Fri, 17 May 2019 15:41:25 +0100
Subject: [PATCH] Don't expand @response-files after first '--'.

Fixes #6050.
---
 cabal-install/main/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cabal-install/main/Main.hs b/cabal-install/main/Main.hs
index 6d203c1ca40..9c0cb8e3084 100644
--- 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