From 30e3021fb0b12cad874f8d2f57ff37b2b641155d Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 10 Apr 2003 11:33:56 +0000
Subject: [PATCH] [project @ 2003-04-10 11:33:56 by simonpj] Comments

---
 ghc/compiler/simplCore/SimplUtils.lhs |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/ghc/compiler/simplCore/SimplUtils.lhs b/ghc/compiler/simplCore/SimplUtils.lhs
index 31f6315..b57b4b1 100644
--- a/ghc/compiler/simplCore/SimplUtils.lhs
+++ b/ghc/compiler/simplCore/SimplUtils.lhs
@@ -224,6 +224,9 @@ getContArgs chkr fun orig_cont
 	--	* (error "Hello") arg
 	--	* f (error "Hello") where f is strict
 	--	etc
+	-- Then, especially in the first of these cases, we'd like to discard
+	-- the continuation, leaving just the bottoming expression.  But the
+	-- type might not be right, so we may have to add a coerce.
     go acc ss inl cont 
 	| null ss && discardableCont cont = (reverse acc, discardCont cont, inl)
 	| otherwise			  = (reverse acc, cont, 	    inl)
-- 
1.7.10.4