diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-03-28 15:27:21 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-04-27 10:04:19 -0400 |
| commit | ba3d4e1c43e6772f11f9a7105ef4bf3be8efb2df (patch) | |
| tree | d40c961279acfea45f007390c04b3462f4757c4e /ghc | |
| parent | 8bef471aaaf3cf40d68786f06b2b9f65d3d851e7 (diff) | |
| download | haskell-ba3d4e1c43e6772f11f9a7105ef4bf3be8efb2df.tar.gz | |
Basic response file support
Here we introduce support into our command-line parsing infrastructure
and driver for handling gnu-style response file arguments,
typically used to work around platform command-line length limitations.
Fixes #16476.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/Main.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 3cb71b77e8..8e30d1a765 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -560,10 +560,9 @@ parseModeFlags :: [Located String] [Located String], [Warn]) parseModeFlags args = do - let ((leftover, errs1, warns), (mModeFlag, units, errs2, flags')) = - runCmdLine (processArgs mode_flags args) - (Nothing, [], [], []) - mode = case mModeFlag of + ((leftover, errs1, warns), (mModeFlag, units, errs2, flags')) <- + processCmdLineP mode_flags (Nothing, [], [], []) args + let mode = case mModeFlag of Nothing -> doMakeMode Just (m, _) -> m |