diff options
Diffstat (limited to 'compiler/hsSyn/HsLit.hs')
| -rw-r--r-- | compiler/hsSyn/HsLit.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/hsSyn/HsLit.hs b/compiler/hsSyn/HsLit.hs index 4686077d27..4fa0a64afd 100644 --- a/compiler/hsSyn/HsLit.hs +++ b/compiler/hsSyn/HsLit.hs @@ -57,7 +57,7 @@ data HsLit -- done with HsOverLit) | HsFloatPrim FractionalLit -- Unboxed Float | HsDoublePrim FractionalLit -- Unboxed Double - deriving (Data, Typeable) + deriving Data instance Eq HsLit where (HsChar _ x1) == (HsChar _ x2) = x1==x2 @@ -81,7 +81,6 @@ data HsOverLit id -- An overloaded literal ol_rebindable :: PostRn id Bool, -- Note [ol_rebindable] ol_witness :: HsExpr id, -- Note [Overloaded literal witnesses] ol_type :: PostTc id Type } - deriving (Typeable) deriving instance (DataId id) => Data (HsOverLit id) -- Note [Literal source text] in BasicTypes for SourceText fields in @@ -90,7 +89,7 @@ data OverLitVal = HsIntegral !SourceText !Integer -- Integer-looking literals; | HsFractional !FractionalLit -- Frac-looking literals | HsIsString !SourceText !FastString -- String-looking literals - deriving (Data, Typeable) + deriving Data overLitType :: HsOverLit a -> PostTc a Type overLitType = ol_type |