From 05f4f1420be27f2852b61f8c348c742961e210d5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hr=C4=8Dek?= <honza.hrk@gmail.com>
Date: Tue, 28 May 2024 09:29:00 +0200
Subject: [PATCH] Replace outdated code example
---
compiler/GHC/Parser/Annotation.hs | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/compiler/GHC/Parser/Annotation.hs b/compiler/GHC/Parser/Annotation.hs
index 8424b9b7256..8c38bb74f50 100644
--- a/compiler/GHC/Parser/Annotation.hs
+++ b/compiler/GHC/Parser/Annotation.hs
@@ -501,17 +501,15 @@ instance Outputable AddEpAnn where
--
-- The 'ann' type parameter allows this general structure to be
-- specialised to the specific set of locations of original exact
--- print annotation elements. For example for 'HsLet' we have
+-- print annotation elements. For example
--
-- @
--- type instance XLet GhcPs = EpAnn AnnsLet
--- data AnnsLet
--- = AnnsLet {
--- alLet :: EpaLocation,
--- alIn :: EpaLocation
--- } deriving Data
+-- type SrcSpannAnnA = EpAnn AnnListItem
-- @
--
+-- is a commonly used type alias that specializes the 'ann' type parameter to
+-- 'AnnListItem'.
+--
-- The spacing between the items under the scope of a given EpAnn is
-- normally derived from the original 'Anchor'. But if a sub-element
-- is not in its original position, the required spacing can be
--
GitLab