diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-04-10 16:37:16 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-05-23 21:04:49 -0400 |
| commit | e9fff12b34bb9770491d24eff5c280f44dc8cfc1 (patch) | |
| tree | 13007782780918e0b69f27d1157a3d4d487997d1 /compiler/GHC/ThToHs.hs | |
| parent | 1a4195b04866ebdb5f42006fb92b8a73a4aa2bac (diff) | |
| download | haskell-e9fff12b34bb9770491d24eff5c280f44dc8cfc1.tar.gz | |
EPA : Remove duplicate comments in DataFamInstD
The code
data instance Method PGMigration = MigrationQuery Query
-- ^ Run a query against the database
| MigrationCode (Connection -> IO (Either String ()))
-- ^ Run any arbitrary IO code
Resulted in two instances of the "-- ^ Run a query against the database"
comment appearing in the Exact Print Annotations when it was parsed.
Ensure only one is kept.
Closes #20239
Diffstat (limited to 'compiler/GHC/ThToHs.hs')
| -rw-r--r-- | compiler/GHC/ThToHs.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/ThToHs.hs b/compiler/GHC/ThToHs.hs index a839822e40..401f8c8a1d 100644 --- a/compiler/GHC/ThToHs.hs +++ b/compiler/GHC/ThToHs.hs @@ -381,7 +381,7 @@ cvtDec (DataInstD ctxt bndrs tys ksig constrs derivs) , dd_cons = cons', dd_derivs = derivs' } ; returnJustLA $ InstD noExtField $ DataFamInstD - { dfid_ext = noAnn + { dfid_ext = noExtField , dfid_inst = DataFamInstDecl { dfid_eqn = FamEqn { feqn_ext = noAnn , feqn_tycon = tc' @@ -401,7 +401,7 @@ cvtDec (NewtypeInstD ctxt bndrs tys ksig constr derivs) , dd_kindSig = ksig' , dd_cons = [con'], dd_derivs = derivs' } ; returnJustLA $ InstD noExtField $ DataFamInstD - { dfid_ext = noAnn + { dfid_ext = noExtField , dfid_inst = DataFamInstDecl { dfid_eqn = FamEqn { feqn_ext = noAnn , feqn_tycon = tc' |