diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2022-07-01 12:52:29 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-11 16:19:57 -0400 |
| commit | ff67c79ee742024ca0ef41a9a7e540e1662d46bd (patch) | |
| tree | 6588e16a80e86696f7541c483a724903b82ad492 /compiler/Language/Haskell/Syntax | |
| parent | 5c24b1b3a9d6a4c2f471fd7d8ec65141a8b46357 (diff) | |
| download | haskell-ff67c79ee742024ca0ef41a9a7e540e1662d46bd.tar.gz | |
EPA: DotFieldOcc does not have exact print annotations
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/Haskell/Syntax')
| -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 - |