From ff67c79ee742024ca0ef41a9a7e540e1662d46bd Mon Sep 17 00:00:00 2001 From: Alan Zimmerman Date: Fri, 1 Jul 2022 12:52:29 +0100 Subject: 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 --- compiler/Language/Haskell/Syntax/Basic.hs | 4 ++-- compiler/Language/Haskell/Syntax/Expr.hs | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) (limited to 'compiler/Language/Haskell/Syntax') 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 - -- cgit v1.2.1