From 83f85baac3f439202848b87fcff6ca4a29b8dfd7 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 31 Aug 2000 19:55:46 +0000
Subject: [PATCH] [project @ 2000-08-31 19:55:46 by simonpj] Put the max in a
better place
---
ghc/compiler/coreSyn/CoreUtils.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index 0c01569b73ec..5e9736b16fb7 100644
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -570,11 +570,11 @@ exprEtaExpandArity :: CoreExpr -> Int -- The number of args the thing can be ap
-- Hence "generous" arity
exprEtaExpandArity e
- = go e
+ = go e `max` 0 -- Never go -ve!
where
go (Var v) = idArity v
go (App f (Type _)) = go f
- go (App f a) | exprIsCheap a = (go f - 1) `max` 0 -- Never go -ve!
+ go (App f a) | exprIsCheap a = go f - 1
go (Lam x e) | isId x = go e + 1
| otherwise = go e
go (Note n e) | ok_note n = go e
--
GitLab