From 115843f29d16a6d212fc1f1b80a7c60c9e7ea587 Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 9 Jan 2003 16:15:30 +0000 Subject: [PATCH] [project @ 2003-01-09 16:15:30 by simonpj] Layout wibble --- ghc/compiler/coreSyn/CorePrep.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/coreSyn/CorePrep.lhs b/ghc/compiler/coreSyn/CorePrep.lhs index e55bca8..1565e55 100644 --- a/ghc/compiler/coreSyn/CorePrep.lhs +++ b/ghc/compiler/coreSyn/CorePrep.lhs @@ -626,7 +626,7 @@ tryEta bndrs expr@(App _ _) n_remaining = length args - length bndrs ok bndr (Var arg) = bndr == arg - ok bndr other = False + ok bndr other = False -- we can't eta reduce something which must be saturated. ok_to_eta_reduce (Var f) = not (hasNoBinding f) -- 1.7.10.4