diff options
author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-10-23 10:49:55 +0100 |
---|---|---|
committer | Alan Zimmerman <alan.zimm@gmail.com> | 2021-10-23 10:49:55 +0100 |
commit | 65e5de54803859d5ae71d6f2f6e0d79a0bf7f979 (patch) | |
tree | 5004151ffd969aa238132ce718c0eac6a8ccd5c3 /compiler/GHC/Iface/Ext/Ast.hs | |
parent | dd2dba808aaa957c3d036b0025b412c499aace3d (diff) | |
download | haskell-65e5de54803859d5ae71d6f2f6e0d79a0bf7f979.tar.gz |
EPA: Use LocatedA for ModuleNamewip/az/locateda-modulename
This allows us to use an Anchor with a DeltaPos in it when exact
printing.
Diffstat (limited to 'compiler/GHC/Iface/Ext/Ast.hs')
-rw-r--r-- | compiler/GHC/Iface/Ext/Ast.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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)} |