[commit: ghc] master: Remove unnecessary DynFlags arg to mkCgIdInfo (24e8163)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/24e81639ceb8666cccd872536ed38860d12cb0c3

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

commit 24e81639ceb8666cccd872536ed38860d12cb0c3
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Sat Mar 9 16:33:32 2013 +0000

    Remove unnecessary DynFlags arg to mkCgIdInfo

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

 compiler/codeGen/StgCmmEnv.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/codeGen/StgCmmEnv.hs b/compiler/codeGen/StgCmmEnv.hs
index 4b7272a..42e4da0 100644
--- a/compiler/codeGen/StgCmmEnv.hs
+++ b/compiler/codeGen/StgCmmEnv.hs
@@ -68,8 +68,8 @@ nonVoidIds ids = [NonVoid id | id <- ids, not (isVoidRep (idPrimRep id))]
 --        Manipulating CgIdInfo
 -------------------------------------
 
-mkCgIdInfo :: DynFlags -> Id -> LambdaFormInfo -> CmmExpr -> CgIdInfo
-mkCgIdInfo dflags id lf expr
+mkCgIdInfo :: Id -> LambdaFormInfo -> CmmExpr -> CgIdInfo
+mkCgIdInfo id lf expr
   = CgIdInfo { cg_id = id, cg_lf = lf
              , cg_loc = CmmLoc expr }
 
@@ -93,7 +93,7 @@ rhsIdInfo :: Id -> LambdaFormInfo -> FCode (CgIdInfo, LocalReg)
 rhsIdInfo id lf_info
   = do dflags <- getDynFlags
        reg <- newTemp (gcWord dflags)
-       return (mkCgIdInfo dflags id lf_info (CmmReg (CmmLocal reg)), reg)
+       return (mkCgIdInfo id lf_info (CmmReg (CmmLocal reg)), reg)
 
 mkRhsInit :: DynFlags -> LocalReg -> LambdaFormInfo -> CmmExpr -> CmmAGraph
 mkRhsInit dflags reg lf_info expr
@@ -206,7 +206,7 @@ bindToReg :: NonVoid Id -> LambdaFormInfo -> FCode LocalReg
 bindToReg nvid@(NonVoid id) lf_info
   = do dflags <- getDynFlags
        let reg = idToReg dflags nvid
-       addBindC id (mkCgIdInfo dflags id lf_info (CmmReg (CmmLocal reg)))
+       addBindC id (mkCgIdInfo id lf_info (CmmReg (CmmLocal reg)))
        return reg
 
 rebindToReg :: NonVoid Id -> FCode LocalReg