diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2020-01-06 14:02:47 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-01-07 13:14:57 -0500 |
| commit | b69a3460d11cba49e861f708100801c8e25efa3e (patch) | |
| tree | a075a807851b803a62d602dab40b62472d2be297 /compiler/backpack/BkpSyn.hs | |
| parent | 1ca9adbc88903afe49de0d063ccd35daf43f7d9e (diff) | |
| download | haskell-b69a3460d11cba49e861f708100801c8e25efa3e.tar.gz | |
Monomorphize HsModule to GhcPs (#17642)
Analyzing the call sites for `HsModule` reveals that it is only ever
used with parsed code (i.e., `GhcPs`). This simplifies `HsModule` by
concretizing its `pass` parameter to always be `GhcPs`.
Fixes #17642.
Diffstat (limited to 'compiler/backpack/BkpSyn.hs')
| -rw-r--r-- | compiler/backpack/BkpSyn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/backpack/BkpSyn.hs b/compiler/backpack/BkpSyn.hs index 87eb2d6ddf..ce14018883 100644 --- a/compiler/backpack/BkpSyn.hs +++ b/compiler/backpack/BkpSyn.hs @@ -61,7 +61,7 @@ type LHsUnit n = Located (HsUnit n) -- | A declaration in a package, e.g. a module or signature definition, -- or an include. data HsUnitDecl n - = DeclD HscSource (Located ModuleName) (Maybe (Located (HsModule GhcPs))) + = DeclD HscSource (Located ModuleName) (Maybe (Located HsModule)) | IncludeD (IncludeDecl n) type LHsUnitDecl n = Located (HsUnitDecl n) |