diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2021-04-23 15:58:06 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-04-23 15:58:06 -0400 |
| commit | 775ae3bd47b2f8bb663525d9dec91818928910b0 (patch) | |
| tree | f7f0566f2e823ed19cdad382032477e2d74af81c | |
| parent | 51a58ec2784aa4982815a4d20c2ea6700504c9e2 (diff) | |
| download | haskell-wip/T19735.tar.gz | |
Improve readability of filename/module name mismatch errorwip/T19735
Align "saw" and "expected" names as suggested in #19735.
| -rw-r--r-- | compiler/GHC/Driver/Make.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Make.hs b/compiler/GHC/Driver/Make.hs index 484353ae4d..e5dd1c6abf 100644 --- a/compiler/GHC/Driver/Make.hs +++ b/compiler/GHC/Driver/Make.hs @@ -2732,7 +2732,7 @@ summariseModule hsc_env old_summary_map is_boot (L loc wanted_mod) when (pi_mod_name /= wanted_mod) $ throwE $ unitBag $ mkPlainErrorMsgEnvelope pi_mod_name_loc $ text "File name does not match module name:" - $$ text "Saw:" <+> quotes (ppr pi_mod_name) + $$ text "Saw: " <+> quotes (ppr pi_mod_name) $$ text "Expected:" <+> quotes (ppr wanted_mod) when (hsc_src == HsigFile && isNothing (lookup pi_mod_name (homeUnitInstantiations home_unit))) $ |