alms-0.6.0: src/AST/Lit.hs

module AST.Lit (
  Lit(..)
) where

import AST.Anti

import Data.Generics (Typeable, Data)

-- | Literals
data Lit
  = LtInt Integer
  | LtChar Char
  | LtStr String
  | LtFloat Double
  | LtAnti Anti
  deriving (Eq, Typeable, Data)