From 625880d3e99e610595aa6140f3e6269e769e1db4 Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Tue, 17 Jul 2001 09:36:55 +0000
Subject: [PATCH] [project @ 2001-07-17 09:36:55 by qrczak] Fix comment.

---
 ghc/compiler/deSugar/DsCCall.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index a103864..8220405 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -311,7 +311,7 @@ resultWrapper result_ty
   | isUnitTy result_ty_rep
   = (Nothing, \e -> Var unitDataConId)
 
-  -- Base case 3: the boolean type ()
+  -- Base case 3: the boolean type
   | isBoolTy result_ty_rep
   = (Just intPrimTy, \e -> Case e (mkWildId intPrimTy)
 	                          [(DEFAULT             ,[],Var trueDataConId ),
-- 
1.7.10.4