1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
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