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

Fix comment.

[project @ 2001-07-17 09:36:55 by qrczak]
Fix comment.
625880d3 · qrczak · 05591cec · 625880d3
Commit 625880d3 authored Jul 17, 2001 by qrczak
--- 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 ),