X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDesugar.lhs;h=b2131ca4f2a2cf6d2cbf6dfd6f59aa5e7458e974;hp=0e7c0324ce9bd6456a8d042dd224d40432729231;hb=b2524b3960999fffdb3767900f58825903f6560f;hpb=16b9e80dc14db24509f051f294b5b51943285090 diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs index 0e7c032..b2131ca 100644 --- a/compiler/deSugar/Desugar.lhs +++ b/compiler/deSugar/Desugar.lhs @@ -535,6 +535,8 @@ switching off EnableRewriteRules. See DsExpr.dsExplicitList. That keeps the desugaring of list comprehensions simple too. + + Nor do we want to warn of conversion identities on the LHS; the rule is precisly to optimise them: {-# RULES "fromRational/id" fromRational = id :: Rational -> Rational #-} @@ -592,4 +594,4 @@ simplifyBind (Rec (rbs@((b,e):rbs'))) = else (NonRec b (simplify e)):(simplifyBind $ Rec rbs') simplifyBinds = concatMap simplifyBind -\end{code} \ No newline at end of file +\end{code}