[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 (file)
--- 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 ),