Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : new-demand-to-merge
http://hackage.haskell.org/trac/ghc/changeset/a56d356cb23981d0f3c23e9b13cbcc89e2c03240 >--------------------------------------------------------------- commit a56d356cb23981d0f3c23e9b13cbcc89e2c03240 Author: Ilya Sergey <ilya.ser...@cs.kuleuven.be> Date: Tue Oct 30 13:21:21 2012 +0100 cleanup >--------------------------------------------------------------- compiler/coreSyn/CorePrep.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/CorePrep.lhs b/compiler/coreSyn/CorePrep.lhs index 81b914e..f2fb56f 100644 --- a/compiler/coreSyn/CorePrep.lhs +++ b/compiler/coreSyn/CorePrep.lhs @@ -470,7 +470,7 @@ cpeRhsE :: DynFlags -> CorePrepEnv -> CoreExpr -> UniqSM (Floats, CpeRhs) cpeRhsE _ _env expr@(Type {}) = return (emptyFloats, expr) cpeRhsE _ _env expr@(Coercion {}) = return (emptyFloats, expr) -cpeRhsE env (Lit (LitInteger i _)) +cpeRhsE dflags env (Lit (LitInteger i _)) = cpeRhsE dflags env (cvtLitInteger (cpe_dynFlags env) (getMkIntegerId env) i) cpeRhsE _ _env expr@(Lit {}) = return (emptyFloats, expr) cpeRhsE dflags env expr@(Var {}) = cpeApp dflags env expr _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
