summaryrefslogtreecommitdiff
path: root/compiler/GHC/Core/PatSyn.hs
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2022-07-01 12:52:29 +0100
committerAlan Zimmerman <alan.zimm@gmail.com>2022-07-07 22:27:03 +0100
commit270053d4f3391d9bf8134e75730a1181d2dea06c (patch)
tree4a6ce09eb59791f60d9460634e885efeabdfae29 /compiler/GHC/Core/PatSyn.hs
parentbbcaba6a0951d45ae0ceb309da5458fc20332511 (diff)
downloadhaskell-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/GHC/Core/PatSyn.hs')
-rw-r--r--compiler/GHC/Core/PatSyn.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/GHC/Core/PatSyn.hs b/compiler/GHC/Core/PatSyn.hs
index c63981bc71..cc66b1caf5 100644
--- a/compiler/GHC/Core/PatSyn.hs
+++ b/compiler/GHC/Core/PatSyn.hs
@@ -38,6 +38,8 @@ import GHC.Utils.Misc
import GHC.Utils.Outputable
import GHC.Utils.Panic
+import Language.Haskell.Syntax.Basic (FieldLabelString(..))
+
import qualified Data.Data as Data
import Data.Function
import Data.List (find)