1
module Literal(Literal(..)) where
15
deriving (Eq, Ord,Show)
17
instance PPrint Literal where
18
pPrint _ _ (LString s) = text (show s)
19
pPrint _ _ (LChar s) = text (show s)
20
pPrint _ _ (LInt s) = text (show s)
21
pPrint _ _ (LInteger s) = text (show s)
22
pPrint _ _ (LBool s) = text (show s)
23
pPrint _ _ (LRational s) = text (show s)
24
pPrint _ _ (LNative s) = text (show s)
25
pPrint _ _ LImpossible = text "_impossible"
26
pPrint _ _ (LNoMatch p) = text "_noMatch"