From: qrczak <unknown>
Date: Tue, 17 Jul 2001 09:36:55 +0000 (+0000)
Subject: [project @ 2001-07-17 09:36:55 by qrczak]
X-Git-Tag: Approximately_9120_patches~1529
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=625880d3e99e610595aa6140f3e6269e769e1db4

[project @ 2001-07-17 09:36:55 by qrczak]
Fix comment.
---

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 ),