[commit: ghc] cardinality: cleanup (8e5fe67)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : cardinality

http://hackage.haskell.org/trac/ghc/changeset/8e5fe67dc6b77271789abdc3577bea0aa4135622

>---------------------------------------------------------------

commit 8e5fe67dc6b77271789abdc3577bea0aa4135622
Author: Ilya Sergey <[email protected]>
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