diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-09-22 18:28:35 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-22 19:20:44 -0400 |
| commit | 806e49ae36a058dbe4494055a6b936dd153c6194 (patch) | |
| tree | 982c304986bf925187aae36997d4602e3419c8e9 /testsuite/tests/parser/should_compile | |
| parent | 6fd7da745a518a93f6685171701a27283cfe2d4e (diff) | |
| download | haskell-806e49ae36a058dbe4494055a6b936dd153c6194.tar.gz | |
Refactor package imports
Use an (Raw)PkgQual datatype instead of `Maybe FastString` to represent
package imports. Factorize the code that renames RawPkgQual into PkgQual
in function `rnPkgQual`. Renaming consists in checking if the FastString
is the magic "this" keyword, the home-unit unit-id or something else.
Bump haddock submodule
Diffstat (limited to 'testsuite/tests/parser/should_compile')
5 files changed, 11 insertions, 9 deletions
diff --git a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr index d42a808c62..31c2d79256 100644 --- a/testsuite/tests/parser/should_compile/DumpParsedAst.stderr +++ b/testsuite/tests/parser/should_compile/DumpParsedAst.stderr @@ -53,7 +53,7 @@ (L { DumpParsedAst.hs:6:8-16 } {ModuleName: Data.Kind}) - (Nothing) + (NoRawPkgQual) (NotBoot) (False) (NotQualified) diff --git a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr index 84519126fc..d8beda8fa4 100644 --- a/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr +++ b/testsuite/tests/parser/should_compile/DumpRenamedAst.stderr @@ -1263,7 +1263,7 @@ (L { DumpRenamedAst.hs:5:8-21 } {ModuleName: Prelude}) - (Nothing) + (NoPkgQual) (NotBoot) (False) (NotQualified) @@ -1278,7 +1278,7 @@ (L { DumpRenamedAst.hs:6:8-16 } {ModuleName: Data.Kind}) - (Nothing) + (NoPkgQual) (NotBoot) (False) (NotQualified) @@ -1293,7 +1293,7 @@ (L { DumpRenamedAst.hs:8:8-16 } {ModuleName: Data.Kind}) - (Nothing) + (NoPkgQual) (NotBoot) (False) (NotQualified) diff --git a/testsuite/tests/parser/should_compile/DumpSemis.stderr b/testsuite/tests/parser/should_compile/DumpSemis.stderr index 05465b8a75..0f5b6f869d 100644 --- a/testsuite/tests/parser/should_compile/DumpSemis.stderr +++ b/testsuite/tests/parser/should_compile/DumpSemis.stderr @@ -76,7 +76,7 @@ (L { DumpSemis.hs:5:8-16 } {ModuleName: Data.List}) - (Nothing) + (NoRawPkgQual) (NotBoot) (False) (NotQualified) @@ -115,7 +115,7 @@ (L { DumpSemis.hs:7:8-16 } {ModuleName: Data.Kind}) - (Nothing) + (NoRawPkgQual) (NotBoot) (False) (NotQualified) @@ -2069,4 +2069,6 @@ (FromSource)) [])))] (Nothing) - (Nothing)))
\ No newline at end of file + (Nothing))) + + diff --git a/testsuite/tests/parser/should_compile/KindSigs.stderr b/testsuite/tests/parser/should_compile/KindSigs.stderr index a8914e9c78..bd9c0deaf0 100644 --- a/testsuite/tests/parser/should_compile/KindSigs.stderr +++ b/testsuite/tests/parser/should_compile/KindSigs.stderr @@ -53,7 +53,7 @@ (L { KindSigs.hs:8:8-16 } {ModuleName: Data.Kind}) - (Nothing) + (NoRawPkgQual) (NotBoot) (False) (NotQualified) diff --git a/testsuite/tests/parser/should_compile/T14189.stderr b/testsuite/tests/parser/should_compile/T14189.stderr index c845817586..eeadfcc06d 100644 --- a/testsuite/tests/parser/should_compile/T14189.stderr +++ b/testsuite/tests/parser/should_compile/T14189.stderr @@ -170,7 +170,7 @@ (L { T14189.hs:1:8-13 } {ModuleName: Prelude}) - (Nothing) + (NoPkgQual) (NotBoot) (False) (NotQualified) |