Commit f122291c authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu

Fix Trac #8455.

This was quite simple -- just use mkIntegerExpr instead of mkIntExpr.
parent e359a65d
......@@ -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']
}
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment