diff options
| author | Oleg Grenrus <oleg.grenrus@iki.fi> | 2023-05-14 21:00:56 +0300 |
|---|---|---|
| committer | Oleg Grenrus <oleg.grenrus@iki.fi> | 2023-05-17 16:58:37 +0300 |
| commit | 2b04bce3a94e3b191a5c43414b7f76d144f0d1f6 (patch) | |
| tree | 1c61ad2c6390799859e48bf9cd52b2902b01982d /compiler/GHC/Driver/Backpack.hs | |
| parent | 2972fd66f91cb51426a1df86b8166a067015e231 (diff) | |
| download | haskell-wip/warns-to-drivermessages.tar.gz | |
Make Warn = Located DriverMessagewip/warns-to-drivermessages
Resolves #23261
This change makes command line argument parsing use diagnostic
framework for producing warnings.
Diffstat (limited to 'compiler/GHC/Driver/Backpack.hs')
| -rw-r--r-- | compiler/GHC/Driver/Backpack.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Backpack.hs b/compiler/GHC/Driver/Backpack.hs index 9ca39b68ae..46aca5a99b 100644 --- a/compiler/GHC/Driver/Backpack.hs +++ b/compiler/GHC/Driver/Backpack.hs @@ -108,7 +108,7 @@ doBackpack [src_filename] = do liftIO $ checkProcessArgsResult unhandled_flags let print_config = initPrintConfig dflags liftIO $ printOrThrowDiagnostics logger print_config (initDiagOpts dflags) (GhcPsMessage <$> p_warns) - liftIO $ handleFlagWarnings logger print_config (initDiagOpts dflags) warns + liftIO $ printOrThrowDiagnostics logger print_config (initDiagOpts dflags) (GhcDriverMessage <$> warns) -- TODO: Preprocessing not implemented buf <- liftIO $ hGetStringBuffer src_filename |