diff options
Diffstat (limited to 'compiler/GHC/HsToCore.hs')
| -rw-r--r-- | compiler/GHC/HsToCore.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore.hs b/compiler/GHC/HsToCore.hs index 523fa542c7..acc74d3727 100644 --- a/compiler/GHC/HsToCore.hs +++ b/compiler/GHC/HsToCore.hs @@ -57,6 +57,7 @@ import GHC.Core.DataCon ( dataConWrapId ) import GHC.Core.Make import GHC.Core.Rules import GHC.Core.Opt.Pipeline.Types ( CoreToDo(..) ) +import GHC.Core.Opt.SpecRec import GHC.Core.Ppr import GHC.Builtin.Names @@ -254,7 +255,7 @@ deSugar hsc_env ; docs <- extractDocs dflags tcg_env - ; let mod_guts = ModGuts { + ; let mod_guts = transferSpecRecs ModGuts { mg_module = mod, mg_hsc_src = hsc_src, mg_loc = mkFileSrcSpan mod_loc, @@ -284,6 +285,7 @@ deSugar hsc_env mg_complete_matches = complete_matches, mg_docs = docs } + ; return (msgs, Just mod_guts) }}}} |