[project @ 2000-11-16 14:43:05 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / MkIface.lhs

diff --git a/ghc/compiler/main/MkIface.lhs b/ghc/compiler/main/MkIface.lhs
index 9ff18cb..3a6402a 100644 (file)
--- a/ghc/compiler/main/MkIface.lhs
+++ b/ghc/compiler/main/MkIface.lhs
@@ -103,7 +103,7 @@ mkModDetails type_env dfun_ids tidy_binds stg_ids orphan_rules
        --      a) the orphan rules
        --      b) rules embedded in the top-level Ids
     rule_dcls | opt_OmitInterfacePragmas = []
-             | otherwise                 = getRules orphan_rules tidy_binds (mkVarSet final_ids)
+             | otherwise                = getRules orphan_rules tidy_binds (mkVarSet final_ids)
 
     orphan_rule_ids = unionVarSets [ ruleSomeFreeVars interestingId rule 
                                   | (_, rule) <- orphan_rules]