diff options
| author | Dave Laing <dave.laing.80@gmail.com> | 2016-05-17 19:03:41 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-05-18 22:02:21 +0200 |
| commit | 39a2faa05fbbdb4a5ef0682afc42b5809cbd86ce (patch) | |
| tree | c7af725cea548d7f7a58881b97b73cc4e3528bd9 /compiler/main/GHC.hs | |
| parent | ba3e1fd37dc5004c4307ed205f6701b16faceb59 (diff) | |
| download | haskell-39a2faa05fbbdb4a5ef0682afc42b5809cbd86ce.tar.gz | |
Rework parser to allow use with DynFlags
Split out the options needed by the parser from DynFlags, making the
parser more friendly to standalone usage.
Test Plan: validate
Reviewers: simonmar, alanz, bgamari, austin, thomie
Reviewed By: simonmar, alanz, bgamari, thomie
Subscribers: thomie, mpickering
Differential Revision: https://phabricator.haskell.org/D2208
GHC Trac Issues: #10961
Diffstat (limited to 'compiler/main/GHC.hs')
| -rw-r--r-- | compiler/main/GHC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs index 2dad92a482..0105607ffb 100644 --- a/compiler/main/GHC.hs +++ b/compiler/main/GHC.hs @@ -1495,5 +1495,5 @@ parser str dflags filename = Left (unitBag (mkPlainErrMsg dflags span err)) POk pst rdr_module -> - let (warns,_) = getMessages pst in + let (warns,_) = getMessages pst dflags in Right (warns, rdr_module) |