Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : cardinality
http://hackage.haskell.org/trac/ghc/changeset/8e5fe67dc6b77271789abdc3577bea0aa4135622 >--------------------------------------------------------------- commit 8e5fe67dc6b77271789abdc3577bea0aa4135622 Author: Ilya Sergey <ilya.ser...@cs.kuleuven.be> Date: Tue Oct 30 17:55:44 2012 +0100 cleanup >--------------------------------------------------------------- compiler/stranal/DmdAnal.lhs | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index 8214e6f..569c3ea 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -187,9 +187,9 @@ dmdAnal dflags rhs_flag env dmd (Lam var body) | Just (body_dmd, Many) <- peelCallDmd dmd = let env' = extendSigsWithLam env var - (body_ty, body') = dmdAnal MereExpr env' body_dmd body + (body_ty, body') = dmdAnal dflags MereExpr env' body_dmd body body_ty' = body_ty `both` body_ty - (lam_ty, var') = annotateLamIdBndr rhs_flag env body_ty' var + (lam_ty, var') = annotateLamIdBndr dflags rhs_flag env body_ty' var in (lam_ty, Lam var' body') @@ -848,7 +848,7 @@ annotateLamIdBndr dflags rhs_flag env (DmdType fv ds res) id mkSigTy :: DynFlags -> TopLevelFlag -> RecFlag -> AnalEnv -> Id -> CoreExpr -> DmdType -> (DmdEnv, StrictSig) -mkSigTy top_lvl rec_flag env id rhs dmd_ty +mkSigTy dflags top_lvl rec_flag env id rhs dmd_ty = mk_sig_ty dflags thunk_cpr_ok rec_flag rhs dmd_ty where id_dmd = idDemandInfo id _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
