[project @ 2003-06-24 08:47:05 by stolz]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsLit.lhs

diff --git a/ghc/compiler/hsSyn/HsLit.lhs b/ghc/compiler/hsSyn/HsLit.lhs
index 2675810..0d90098 100644 (file)
--- a/ghc/compiler/hsSyn/HsLit.lhs
+++ b/ghc/compiler/hsSyn/HsLit.lhs
@@ -9,8 +9,7 @@ module HsLit where
 #include "HsVersions.h"
 
 import Type    ( Type )
-import Name    ( Name )
-import HsTypes ( PostTcType )
+import HsTypes ( SyntaxName, PostTcType )
 import Outputable
 import FastString
 import Ratio   ( Rational )
@@ -34,7 +33,9 @@ data HsLit
                                        --      and from TRANSLATION
   | HsIntPrim      Integer             -- Unboxed Int
   | HsInteger      Integer             -- Genuinely an integer; arises only from TRANSLATION
+                                       --      (overloaded literals are done with HsOverLit)
   | HsRat          Rational Type       -- Genuinely a rational; arises only from TRANSLATION
+                                       --      (overloaded literals are done with HsOverLit)
   | HsFloatPrim            Rational            -- Unboxed Float
   | HsDoublePrim    Rational           -- Unboxed Double
   | HsLitLit       FastString PostTcType       -- to pass ``literal literals'' through to C
@@ -58,9 +59,9 @@ instance Eq HsLit where
   lit1             == lit2              = False
 
 data HsOverLit                         -- An overloaded literal
-  = HsIntegral     Integer  Name       -- Integer-looking literals;
+  = HsIntegral     Integer  SyntaxName -- Integer-looking literals;
                                        -- The name is fromInteger
-  | HsFractional    Rational Name      -- Frac-looking literals
+  | HsFractional    Rational SyntaxName        -- Frac-looking literals
                                        -- The name is fromRational
 
 instance Eq HsOverLit where