From: simonpj <unknown>
Date: Thu, 10 Apr 2003 14:45:48 +0000 (+0000)
Subject: [project @ 2003-04-10 14:45:48 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~975
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0a8c82444150385fa9dd2a7458fb162bc5dcff98;p=ghc-hetmet.git

[project @ 2003-04-10 14:45:48 by simonpj]
Handle Int literals in TH
---

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index 4c0d351..2624aee 100644
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -1089,6 +1089,7 @@ repLiteral lit
   where
     lit_name = case lit of
 		 HsInteger _ -> integerLName
+		 HsInt     _ -> integerLName
 		 HsChar _    -> charLName
 		 HsString _  -> stringLName
 		 HsRat _ _   -> rationalLName
@@ -1166,7 +1167,7 @@ templateHaskellNames :: NameSet
 -- The names that are implicitly mentioned by ``bracket''
 -- Should stay in sync with the import list of DsMeta
 templateHaskellNames
-  = mkNameSet [ integerLName,charLName, stringLName, rationalLName,
+  = mkNameSet [ integerLName, charLName, stringLName, rationalLName,
 		plitName, pvarName, ptupName, 
 		pconName, ptildeName, paspatName, pwildName, 
                 varName, conName, litName, appName, infixEName, lamName,