From b34291eae148f41933c30f0551d0d3e34dc5a0c3 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 27 Feb 2002 15:53:46 +0000
Subject: [PATCH] [project @ 2002-02-27 15:53:46 by simonpj] comments

---
 ghc/compiler/main/MkIface.lhs |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 7055df9..bce2bb3 100644
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -139,8 +139,11 @@ isOrphanModule :: Module -> ModDetails -> Bool
 isOrphanModule this_mod (ModDetails {md_insts = insts, md_rules = rules})
   = any orphan_inst insts || any orphan_rule rules
   where
+	-- A rule is an orphan if the LHS mentions nothing defined locally
     orphan_inst dfun_id = no_locals (namesOfDFunHead (idType dfun_id))
+	-- A instance is an orphan if its head mentions nothing defined locally
     orphan_rule rule    = no_locals (ruleLhsFreeNames rule)
+
     no_locals names     = isEmptyNameSet (filterNameSet (nameIsLocalOrFrom this_mod) names)
 \end{code}
 
-- 
1.7.10.4