From 691c450f1e9cc3fd83b662be3c0134fde03e97db Mon Sep 17 00:00:00 2001 From: Alan Zimmerman Date: Sat, 23 Oct 2021 10:49:55 +0100 Subject: EPA: Use LocatedA for ModuleName This allows us to use an Anchor with a DeltaPos in it when exact printing. --- compiler/GHC/Iface/Ext/Ast.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'compiler/GHC/Iface') diff --git a/compiler/GHC/Iface/Ext/Ast.hs b/compiler/GHC/Iface/Ext/Ast.hs index fbeaa8ca3a..e47c90a577 100644 --- a/compiler/GHC/Iface/Ext/Ast.hs +++ b/compiler/GHC/Iface/Ext/Ast.hs @@ -588,8 +588,8 @@ instance (ToHie a) => ToHie (Bag a) where instance (ToHie a) => ToHie (Maybe a) where toHie = maybe (pure []) toHie -instance ToHie (IEContext (Located ModuleName)) where - toHie (IEC c (L (RealSrcSpan span _) mname)) = do +instance ToHie (IEContext (LocatedA ModuleName)) where + toHie (IEC c (L (SrcSpanAnn _ (RealSrcSpan span _)) mname)) = do org <- ask pure $ [Node (mkSourcedNodeInfo org $ NodeInfo S.empty [] idents) span []] where details = mempty{identInfo = S.singleton (IEThing c)} -- cgit v1.2.1