X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDesugar.lhs;h=1d954381172b3f9fbde6dca863774ca224feb6a1;hb=b55a5d5d522bb70a5a3e309fef4bb62eca8a4e6b;hp=5090a9e872f84823bddca000f938b576073d4369;hpb=ae54717718aefc3a9f246bb09c0bab66a8062a63;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index 5090a9e..1d95438 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -48,7 +48,7 @@ deSugar :: DynFlags
 	-> UniqSupply
 	-> HomeSymbolTable
         -> TcResults
-	-> IO ([CoreBind], [ProtoCoreRule], SDoc, SDoc, [CoreBndr])
+	-> IO ([CoreBind], RuleEnv, SDoc, SDoc, [CoreBndr])
 
 deSugar dflags mod_name us hst
         (TcResults {tc_env   = global_val_env,
@@ -110,9 +110,6 @@ ppr_ds_rules rules
 
 \begin{code}
 dsRule :: IdSet -> TypecheckedRuleDecl -> DsM ProtoCoreRule
-dsRule in_scope (IfaceRuleOut fn rule)
-  = returnDs (ProtoCoreRule False {- non-local -} fn rule)
-    
 dsRule in_scope (HsRule name sig_tvs vars lhs rhs loc)
   = putSrcLocDs loc		$
     ds_lhs all_vars lhs		`thenDs` \ (fn, args) ->