diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-02-21 21:16:24 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-01 17:32:12 -0500 |
| commit | ce85cffc7c3afa55755ae8d1aa027761bf54bed4 (patch) | |
| tree | 81986b7475f28a20bb80301107f9360a90b1e976 /compiler/GHC/Iface/Ext | |
| parent | 6429943b0a377e076bcfd26c79ceb27cf2f4a9ab (diff) | |
| download | haskell-ce85cffc7c3afa55755ae8d1aa027761bf54bed4.tar.gz | |
Wrap LHsContext in Maybe in the GHC AST
If the context is missing it is captured as Nothing, rather than
putting a noLoc in the ParsedSource.
Updates haddock submodule
Diffstat (limited to 'compiler/GHC/Iface/Ext')
| -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 dfa0b91e9b..3fe14085a9 100644 --- a/compiler/GHC/Iface/Ext/Ast.hs +++ b/compiler/GHC/Iface/Ext/Ast.hs @@ -1393,7 +1393,7 @@ instance ToHie (Located (TyClDecl GhcRn)) where , toHie defn ] where - quant_scope = mkLScope $ dd_ctxt defn + quant_scope = mkLScope $ fromMaybe (noLoc []) $ dd_ctxt defn rhs_scope = sig_sc `combineScopes` con_sc `combineScopes` deriv_sc sig_sc = maybe NoScope mkLScope $ dd_kindSig defn con_sc = foldr combineScopes NoScope $ map mkLScope $ dd_cons defn @@ -1418,7 +1418,7 @@ instance ToHie (Located (TyClDecl GhcRn)) where , toHie deftyps ] where - context_scope = mkLScope context + context_scope = mkLScope $ fromMaybe (noLoc []) context rhs_scope = foldl1' combineScopes $ map mkScope [ loc deps, loc sigs, loc (bagToList meths), loc typs, loc deftyps] |