diff options
| author | Muhaimin Ahsan <leroux@fezrev.com> | 2014-11-21 11:31:44 -0600 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-11-21 11:31:45 -0600 |
| commit | 3e4f49b04e6e97256b4d34221e209e1051bf06ae (patch) | |
| tree | 1db1538ea4a5b6c3df77c55c035fd65db4b0c228 /ghc | |
| parent | 803fc5db31f084b73713342cdceaed5a9c664267 (diff) | |
| download | haskell-3e4f49b04e6e97256b4d34221e209e1051bf06ae.tar.gz | |
Fixes ghci :unset -X<ext> so that it doesn't fail to reverse option. (fixes trac #9293)
Summary: ghci unset could not reverse language extensions.
Reviewers: hvr, thomie, austin
Reviewed By: hvr, thomie, austin
Subscribers: goldfire, hvr, thomie, carter
Differential Revision: https://phabricator.haskell.org/D516
GHC Trac Issues: #9293
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index f5a1bbe938..7fdda0b0fd 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -2182,6 +2182,7 @@ unsetOptions str ] no_flag ('-':'f':rest) = return ("-fno-" ++ rest) + no_flag ('-':'X':rest) = return ("-XNo" ++ rest) no_flag f = throwGhcException (ProgramError ("don't know how to reverse " ++ f)) in if (not (null rest3)) |