X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FdeSugar%2FDsCCall.lhs;fp=ghc%2Fcompiler%2FdeSugar%2FDsCCall.lhs;h=3554197fb8cbb42897f551d5a07c2086cfd39d9b;hb=e31827c6f8e3dc8aee72500cd224c7bdb4f6a764;hp=e630f043eb621e6172ca145d4d04b597763deba8;hpb=edf6bdfb5dee21f9bc5077083e5350ee64efffbc;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index e630f04..3554197 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -196,7 +196,6 @@ unboxArg arg
     maybeToBool maybe_arg3_tycon &&
     (arg3_tycon ==  byteArrayPrimTyCon ||
      arg3_tycon ==  mutableByteArrayPrimTyCon)
-    -- and, of course, it is an instance of CCallable
   = newSysLocalDs arg_ty		`thenDs` \ case_bndr ->
     newSysLocalsDs data_con_arg_tys	`thenDs` \ vars@[l_var, r_var, arr_cts_var] ->
     returnDs (Var arr_cts_var,