Fix splitRTSArgs

MercuryTechnologies · Sep 5, 2024 · 340b7f0 · 340b7f0
1 parent a4d1568
commit 340b7f0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Cabal/src/Distribution/Simple/Program/GHC.hs b/Cabal/src/Distribution/Simple/Program/GHC.hs
@@ -1008,8 +1008,8 @@ splitRTSArgs args =
         case arg of
           "+RTS" -> addRTSArg arg $ go True rest
           "-RTS" -> addRTSArg arg $ go False rest
-          "--RTS" -> (arg : rest, [])
-          "--" -> (arg : rest, [])
+          "--RTS" -> ([arg], rest)
+          "--" -> ([], arg : rest)
           _ ->
             if isRTSArg
               then addRTSArg arg $ go isRTSArg rest