1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface BasicLit where
3 import Outputable(Outputable)
4 import PreludePS(_PackedString)
5 import PreludeRatio(Ratio(..))
6 import Pretty(PprStyle)
7 import PrimKind(PrimKind)
8 import UniType(UniType)
9 data BasicLit = MachChar Char | MachStr _PackedString | MachAddr Integer | MachInt Integer Bool | MachFloat (Ratio Integer) | MachDouble (Ratio Integer) | MachLitLit _PackedString PrimKind | NoRepStr _PackedString | NoRepInteger Integer | NoRepRational (Ratio Integer)
12 isLitLitLit :: BasicLit -> Bool
13 isNoRepLit :: BasicLit -> Bool
14 kindOfBasicLit :: BasicLit -> PrimKind
15 mkMachInt :: Integer -> BasicLit
16 mkMachWord :: Integer -> BasicLit
17 showBasicLit :: PprStyle -> BasicLit -> [Char]
18 typeOfBasicLit :: BasicLit -> UniType
21 instance Outputable BasicLit