diff options
| author | iori tsu <matsuhara.iori@scrive.com> | 2021-05-01 10:27:43 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-03 19:51:58 -0400 |
| commit | 7f5ee7194e18cc2c922839260817c16db8e95832 (patch) | |
| tree | 9a3ac63d1e80d3dd6fc1ebaebf574ba659e771c5 | |
| parent | 0680e9a5ce29523fca43b62a8edc59b0d0690d6a (diff) | |
| download | haskell-7f5ee7194e18cc2c922839260817c16db8e95832.tar.gz | |
visually align expected and actual modules name
before:
> /home/matt/Projects/persistent/persistent/Database/Persist/ImplicitIdDef.hs:1:8: error:
> File name does not match module name:
> Saw: ‘A.B.Module’
> Expected: ‘A.B.Motule’
> |
> 1 | module A.B.Motule
> | ^^^^^^^^^^>
after:
> /home/matt/Projects/persistent/persistent/Database/Persist/ImplicitIdDef.hs:1:8: error:
> File name does not match module name:
> Saw: ‘A.B.Module’
> Expected: ‘A.B.Motule’
> |
> 1 | module A.B.Motule
> | ^^^^^^^^^^>
| -rw-r--r-- | compiler/GHC/Driver/Make.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/driver/bug1677/bug1677.stderr | 2 | ||||
| -rw-r--r-- | testsuite/tests/module/mod178.stderr | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Driver/Make.hs b/compiler/GHC/Driver/Make.hs index 68245b42ca..767d0b884b 100644 --- a/compiler/GHC/Driver/Make.hs +++ b/compiler/GHC/Driver/Make.hs @@ -2741,7 +2741,7 @@ summariseModule hsc_env old_summary_map is_boot (L loc wanted_mod) mkPlainErrorMsgEnvelope pi_mod_name_loc $ DriverUnknownMessage $ mkPlainError $ 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))) $ diff --git a/testsuite/tests/driver/bug1677/bug1677.stderr b/testsuite/tests/driver/bug1677/bug1677.stderr index dd0d4ff941..89524992ab 100644 --- a/testsuite/tests/driver/bug1677/bug1677.stderr +++ b/testsuite/tests/driver/bug1677/bug1677.stderr @@ -1,5 +1,5 @@ Foo.hs:1:1: File name does not match module name: - Saw: ‘Main’ + Saw : ‘Main’ Expected: ‘Foo’ diff --git a/testsuite/tests/module/mod178.stderr b/testsuite/tests/module/mod178.stderr index 8bd70526d9..fb72b112c5 100644 --- a/testsuite/tests/module/mod178.stderr +++ b/testsuite/tests/module/mod178.stderr @@ -1,5 +1,5 @@ Mod178_2.hs:1:1: File name does not match module name: - Saw: ‘Main’ + Saw : ‘Main’ Expected: ‘Mod178_2’ |