[commit: ghc] master: Fix Trac #8455. (f122291)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/f122291c4af46f3b7fb9d804c07abdde3210e047/ghc

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

commit f122291c4af46f3b7fb9d804c07abdde3210e047
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Mon Oct 21 09:52:30 2013 -0400

    Fix Trac #8455.
    
    This was quite simple -- just use mkIntegerExpr instead of mkIntExpr.


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

f122291c4af46f3b7fb9d804c07abdde3210e047
 compiler/deSugar/DsMeta.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs
index 51544e5..6bdcd2f 100644
--- a/compiler/deSugar/DsMeta.hs
+++ b/compiler/deSugar/DsMeta.hs
@@ -849,8 +849,8 @@ repTy (HsTyLit lit) = do
 repTy ty                      = notHandled "Exotic form of type" (ppr ty)
 
 repTyLit :: HsTyLit -> DsM (Core TH.TyLitQ)
-repTyLit (HsNumTy i) = do dflags <- getDynFlags
-                          rep2 numTyLitName [mkIntExpr dflags i]
+repTyLit (HsNumTy i) = do iExpr <- mkIntegerExpr i
+                          rep2 numTyLitName [iExpr]
 repTyLit (HsStrTy s) = do { s' <- mkStringExprFS s
                          ; rep2 strTyLitName [s']
                          }