[commit: ghc] new-demand-to-merge: cleanup (a56d356)
Ilya Sergey <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
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 <[email protected]> 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