[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 (file)
--- 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,