diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-07-01 12:52:29 +0100 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2022-07-07 22:27:03 +0100 |
| commit | 270053d4f3391d9bf8134e75730a1181d2dea06c (patch) | |
| tree | 4a6ce09eb59791f60d9460634e885efeabdfae29 /compiler/Language | |
| parent | bbcaba6a0951d45ae0ceb309da5458fc20332511 (diff) | |
| download | haskell-wip/az/T21805.tar.gz | |
EPA: DotFieldOcc does not have exact print annotationswip/az/T21805
For the code
{-# LANGUAGE OverloadedRecordUpdate #-}
operatorUpdate f = f{(+) = 1}
There are no exact print annotations for the parens around the +
symbol, nor does normal ppr print them.
This MR fixes that.
Closes #21805
Updates haddock submodule
Diffstat (limited to 'compiler/Language')
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Basic.hs | 4 | ||||
| -rw-r--r-- | compiler/Language/Haskell/Syntax/Expr.hs | 1 |
2 files changed, 2 insertions, 3 deletions
diff --git a/compiler/Language/Haskell/Syntax/Basic.hs b/compiler/Language/Haskell/Syntax/Basic.hs index 092231b7d1..77ad3fe0e0 100644 --- a/compiler/Language/Haskell/Syntax/Basic.hs +++ b/compiler/Language/Haskell/Syntax/Basic.hs @@ -53,8 +53,8 @@ Field Labels -- | Field labels are just represented as strings; -- they are not necessarily unique (even within a module) -type FieldLabelString = FastString - +newtype FieldLabelString = FieldLabelString { field_label:: FastString } + deriving (Data, Eq) {- ************************************************************************ diff --git a/compiler/Language/Haskell/Syntax/Expr.hs b/compiler/Language/Haskell/Syntax/Expr.hs index 326c9903dc..8dda0c8c81 100644 --- a/compiler/Language/Haskell/Syntax/Expr.hs +++ b/compiler/Language/Haskell/Syntax/Expr.hs @@ -1638,4 +1638,3 @@ isMonadDoCompContext ListComp = False isMonadDoCompContext GhciStmtCtxt = False isMonadDoCompContext (DoExpr _) = False isMonadDoCompContext (MDoExpr _) = False - |