From e3873a5edcdfcb9ded737c4683ef7b7470ad0333 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 20 Feb 2001 15:37:42 +0000
Subject: [PATCH] [project @ 2001-02-20 15:37:42 by simonpj] Add another
 assert

---
 ghc/compiler/coreSyn/CoreUnfold.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index df6acfb..756201a 100644
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -571,7 +571,9 @@ callSiteInline dflags black_listed inline_call occ id arg_infos interesting_cont
 		-- Note: there used to be a '&& not top_level' in the guard above,
 		--	 but that stopped us inlining top-level functions used only once,
 		--	 which is stupid
-	  = not in_lam || not (null arg_infos) || interesting_cont
+	  = WARN( not in_lam, ppr id )	-- If (not in_lam) && one_br then PreInlineUnconditionally
+					-- should have caught it, shouldn't it?
+	    not (null arg_infos) || interesting_cont
 
 	  | otherwise
 	  = case guidance of
-- 
1.7.10.4