diff options
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 68bbc103b5..d356bc1c11 100644 --- a/compiler/GHC/Iface/Ext/Ast.hs +++ b/compiler/GHC/Iface/Ext/Ast.hs @@ -900,12 +900,12 @@ instance ( HiePass p HieTc -> makeNode m span HieRn -> makeNode m span -instance HiePass p => ToHie (HsMatchContext (GhcPass p)) where +instance ToHie (Context (Located n)) => ToHie (HsMatchContext n) where toHie (FunRhs{mc_fun=name}) = toHie $ C MatchBind name toHie (StmtCtxt a) = toHie a toHie _ = pure [] -instance HiePass p => ToHie (HsStmtContext (GhcPass p)) where +instance ToHie (Context (Located n)) => ToHie (HsStmtContext n) where toHie (PatGuard a) = toHie a toHie (ParStmtCtxt a) = toHie a toHie (TransStmtCtxt a) = toHie a |