[project @ 2000-04-05 13:56:30 by panne]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsCCall.lhs

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index 030f98a..f5fa47f 100644 (file)
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -179,7 +179,7 @@ unboxArg arg
              \ body -> Case arg case_bndr [(DataAlt box_data_con,[prim_arg],body)]
     )
 
-  -- Booleans; Hacking alert: the 0/1 literals should match the HsFalse/HsTrue constants
+  -- Booleans
   | arg_ty == boolTy
   = newSysLocalDs intPrimTy            `thenDs` \ prim_arg ->
     returnDs (Var prim_arg,