diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2020-03-24 21:44:04 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2020-05-22 11:41:55 +0100 |
commit | fcb0f33497d0cba9f1eb1ee551023f6ef4797821 (patch) | |
tree | 37ffb9a5b3b84ea64ab6c3e1189433f0e2a60eb5 | |
parent | 9426ddf9e6a5d44b44c0030150354d8cbbe0abf3 (diff) | |
download | haskell-fcb0f33497d0cba9f1eb1ee551023f6ef4797821.tar.gz |
Don't throw away extra info, for now
-rw-r--r-- | compiler/GHC/Iface/Load.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/compiler/GHC/Iface/Load.hs b/compiler/GHC/Iface/Load.hs index d50c9e0806..98d6b49f3e 100644 --- a/compiler/GHC/Iface/Load.hs +++ b/compiler/GHC/Iface/Load.hs @@ -475,13 +475,13 @@ loadInterface doc_str mod from ; new_eps_anns <- tcIfaceAnnotations (mi_anns iface) ; new_eps_complete_sigs <- tcIfaceCompleteSigs (mi_complete_sigs iface) - ; let { final_iface = iface { - mi_decls = panic "No mi_decls in PIT", - mi_insts = panic "No mi_insts in PIT", - mi_fam_insts = panic "No mi_fam_insts in PIT", - mi_rules = panic "No mi_rules in PIT", - mi_anns = panic "No mi_anns in PIT" - } + ; let { final_iface = iface {- { + mi_decls = [], + mi_insts = [], + mi_fam_insts = [], + mi_rules = [], + mi_anns = [] + } -} } ; let bad_boot = mi_boot iface && fmap fst (if_rec_types gbl_env) == Just mod |