From c7b2a8e7b280a95bf6cb11131108c786a1feb8ea Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 3 Jul 2003 10:35:37 +0000
Subject: [PATCH] [project @ 2003-07-03 10:35:37 by simonpj] Dont report
 assert as unused; merge to stable

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

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index e926ef0..a00cfae 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -162,7 +162,9 @@ rnExpr (HsVar v)
   = lookupOccRn v	`thenM` \ name ->
     if name `hasKey` assertIdKey && not opt_IgnoreAsserts then
 	-- We expand it to (GHC.Err.assertError location_string)
-        mkAssertErrorExpr
+        mkAssertErrorExpr	`thenM` \ (e, fvs) ->
+	returnM (e, fvs `addOneFV` name)
+		-- Keep 'assert' as a free var, to ensure it's not reported as unused!
     else
         -- The normal case.  Even if the Id was 'assert', if we are 
 	-- ignoring assertions we leave it as GHC.Base.assert; 
-- 
1.7.10.4