[project @ 1996-01-11 14:06:51 by partain]
[ghc-hetmet.git] / ghc / compiler / abstractSyn / HsLit.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface HsLit where
3 import Outputable(Outputable)
4 import PreludePS(_PackedString)
5 import PreludeRatio(Ratio(..))
6 import UniType(UniType)
7 data Literal   = CharLit Char | CharPrimLit Char | StringLit _PackedString | StringPrimLit _PackedString | IntLit Integer | FracLit (Ratio Integer) | LitLitLitIn _PackedString | LitLitLit _PackedString UniType | IntPrimLit Integer | FloatPrimLit (Ratio Integer) | DoublePrimLit (Ratio Integer)
8 negLiteral :: Literal -> Literal
9 instance Outputable Literal
10