diff --git a/compiler/GHC/Parser/Annotation.hs b/compiler/GHC/Parser/Annotation.hs index 8424b9b7256770dd434544f15fd2e40c3f5b3779..8c38bb74f50fafa96b83b13536ee14ce25f2fa17 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