Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : cardinality
http://hackage.haskell.org/trac/ghc/changeset/e5fc1aa18b732899cb45cfc30c700d8def5aeea7 >--------------------------------------------------------------- commit e5fc1aa18b732899cb45cfc30c700d8def5aeea7 Author: Ilya Sergey <[email protected]> Date: Wed Sep 19 13:04:28 2012 +0100 cleanup >--------------------------------------------------------------- compiler/stranal/DmdAnal.lhs | 8 ++++---- 1 files changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index aff4664..57d700e 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -159,7 +159,7 @@ dmdAnal env dmd (App fun arg) -- Non-type arguments (arg_dmd, res_ty) = splitDmdTy fun_ty (arg_ty, arg') = dmdAnal env arg_dmd arg in - pprTrace "dmdAnal-App" (vcat [ppr fun, ppr fun_ty]) $ + -- pprTrace "dmdAnal-App" (vcat [ppr fun, ppr fun_ty]) $ (res_ty `both` arg_ty, App fun' arg') dmdAnal env dmd (Lam var body) @@ -177,7 +177,7 @@ dmdAnal env dmd (Lam var body) armed_var = setOneShotLambda var (lam_ty, var') = annotateLamIdBndr env body_ty armed_var in - pprTrace "dmdAnal-Lam-One" (vcat [ppr var, ppr dmd, ppr lam_ty]) $ + -- pprTrace "dmdAnal-Lam-One" (vcat [ppr var, ppr dmd, ppr lam_ty]) $ (lam_ty, Lam var' body') | Just (body_dmd, Many) <- peelCallDmd dmd @@ -187,7 +187,7 @@ dmdAnal env dmd (Lam var body) (body_ty, body') = dmdAnal env' body_dmd body (lam_ty, var') = annotateLamIdBndr env body_ty var in - pprTrace "dmdAnal-Lam-Many" (vcat [ppr var, ppr dmd, ppr lam_ty]) $ + -- pprTrace "dmdAnal-Lam-Many" (vcat [ppr var, ppr dmd, ppr lam_ty]) $ (lam_ty, Lam var' body') @@ -196,7 +196,7 @@ dmdAnal env dmd (Lam var body) (body_ty, body') = dmdAnal env evalDmd body (lam_ty, var') = annotateLamIdBndr env body_ty var in - pprTrace "dmdAnal-Lam-Other" (vcat [ppr var, ppr dmd, ppr lam_ty]) $ + -- pprTrace "dmdAnal-Lam-Other" (vcat [ppr var, ppr dmd, ppr lam_ty]) $ (deferType lam_ty, Lam var' body') dmdAnal env dmd (Case scrut case_bndr ty [alt@(DataAlt dc, _, _)]) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
