From: simonpj@microsoft.com <unknown>
Date: Tue, 5 Jan 2010 10:18:33 +0000 (+0000)
Subject: Very minor refactoring
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cf872d0fd1f7b88eaba55d2256e7a05e676e2a9d;p=ghc-hetmet.git

Very minor refactoring
---

diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
index 4a8ad54..1c08d6b 100644
--- a/compiler/simplCore/SimplUtils.lhs
+++ b/compiler/simplCore/SimplUtils.lhs
@@ -1008,8 +1008,9 @@ mkLam env bndrs body
 
       | dopt Opt_DoLambdaEtaExpansion dflags,
         not (inGentleMode env),	      -- In gentle mode don't eta-expansion
-   	any isRuntimeVar bndrs	      -- because it can clutter up the code
+	    		  	      -- because it can clutter up the code
 	    		 	      -- with casts etc that may not be removed
+   	not (all isTyVar bndrs) -- Don't eta expand type abstractions
       = do { let body' = tryEtaExpansion dflags body
  	   ; return (mkLams bndrs body') }