diff options
Diffstat (limited to 'compiler/GHC/Iface/Ext')
-rw-r--r-- | compiler/GHC/Iface/Ext/Ast.hs | 4 | ||||
-rw-r--r-- | compiler/GHC/Iface/Ext/Utils.hs | 2 |
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 |