[project @ 1996-07-25 20:43:49 by partain]

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

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 4f2760e..cf1cf58 100644 (file)
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -424,7 +424,7 @@ dsExpr (RecordUpdOut record_expr dicts rbinds)
     dsRbinds rbinds            $ \ rbinds' ->
     let
        record_ty               = coreExprType record_expr'
-       (tycon, inst_tys, cons) = trace "DsExpr.getAppDataTyConExpandingDicts" $
+       (tycon, inst_tys, cons) = --trace "DsExpr.getAppDataTyConExpandingDicts" $
                                  getAppDataTyConExpandingDicts record_ty
        cons_to_upd             = filter has_all_fields cons