From 0a8c82444150385fa9dd2a7458fb162bc5dcff98 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 10 Apr 2003 14:45:48 +0000
Subject: [PATCH] [project @ 2003-04-10 14:45:48 by simonpj] Handle Int
 literals in TH

---
 ghc/compiler/deSugar/DsMeta.hs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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,
-- 
1.7.10.4