From 088962101d8ad4ba5455e295258df009c72315f2 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 16 Aug 2006 10:48:17 +0000
Subject: [PATCH] Comments only

---
 compiler/simplCore/Simplify.lhs |    2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 5915dd2..53d0fd4 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -378,6 +378,8 @@ simplNonRecX env bndr new_rhs thing_inside
 	-- If a,b occur once we can avoid constructing the let binding for them.
   | preInlineUnconditionally env NotTopLevel bndr new_rhs
   = thing_inside (extendIdSubst env bndr (DoneEx new_rhs))
+
+  -- NB: completeLazyBind uses postInlineUnconditionally; no need to do that here
 -}
 
   | otherwise
-- 
1.7.10.4