summaryrefslogtreecommitdiff
path: root/compiler/GHC/Iface/Ext
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/Iface/Ext')
-rw-r--r--compiler/GHC/Iface/Ext/Ast.hs4
-rw-r--r--compiler/GHC/Iface/Ext/Utils.hs2
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Iface/Ext/Ast.hs b/compiler/GHC/Iface/Ext/Ast.hs
index e193684776..314885cafa 100644
--- a/compiler/GHC/Iface/Ext/Ast.hs
+++ b/compiler/GHC/Iface/Ext/Ast.hs
@@ -555,7 +555,7 @@ instance HasLoc (LocatedA a) where
loc (L la _) = locA la
instance HasLoc (LocatedN a) where
- loc (L la _) = locA la
+ loc (L la _) = locN la
instance HasLoc a => HasLoc [a] where
loc [] = noSrcSpan
@@ -618,7 +618,7 @@ instance ToHie (IEContext (LocatedA ModuleName)) where
toHie _ = pure []
instance ToHie (Context (Located a)) => ToHie (Context (LocatedN a)) where
- toHie (C c (L l a)) = toHie (C c (L (locA l) a))
+ toHie (C c (L l a)) = toHie (C c (L (locN l) a))
instance ToHie (Context (Located a)) => ToHie (Context (LocatedA a)) where
toHie (C c (L l a)) = toHie (C c (L (locA l) a))
diff --git a/compiler/GHC/Iface/Ext/Utils.hs b/compiler/GHC/Iface/Ext/Utils.hs
index 5008b076c7..1533b5195b 100644
--- a/compiler/GHC/Iface/Ext/Utils.hs
+++ b/compiler/GHC/Iface/Ext/Utils.hs
@@ -540,7 +540,7 @@ mkLScopeA :: GenLocated (SrcSpanAnn' a) e -> Scope
mkLScopeA = mkScope . locA . getLoc
mkLScopeN :: LocatedN a -> Scope
-mkLScopeN = mkScope . getLocA
+mkLScopeN = mkScope . getLocN
combineScopes :: Scope -> Scope -> Scope
combineScopes ModuleScope _ = ModuleScope