diff options
Diffstat (limited to 'compiler/iface/MkIface.hs')
-rw-r--r-- | compiler/iface/MkIface.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/iface/MkIface.hs b/compiler/iface/MkIface.hs index 697972af27..f594181af4 100644 --- a/compiler/iface/MkIface.hs +++ b/compiler/iface/MkIface.hs @@ -1853,13 +1853,8 @@ famInstToIfaceFamInst (FamInst { fi_axiom = axiom, orph | is_local fam_decl = NotOrphan (nameOccName fam_decl) - - | not (isEmptyNameSet lhs_names) - = NotOrphan (nameOccName (head (nameSetElems lhs_names))) - - | otherwise - = IsOrphan + = chooseOrphanAnchor $ nameSetElems lhs_names -------------------------- toIfaceLetBndr :: Id -> IfaceLetBndr |