module Language.Haskell.Tools.AST.Literals where
import Language.Haskell.Tools.AST.Ann
import Language.Haskell.Tools.AST.Base
data Literal dom stage
= CharLit { _charLitValue :: Char
}
| StringLit { _stringLitValue :: String
}
| IntLit { _intLitValue :: Integer
}
| FracLit { _fracLitValue :: Rational
}
| PrimIntLit { _intLitValue :: Integer
}
| PrimWordLit { _intLitValue :: Integer
}
| PrimFloatLit { _floatLitValue :: Rational
}
| PrimDoubleLit { _floatLitValue :: Rational
}
| PrimCharLit { _charLitValue :: Char
}
| PrimStringLit { _stringLitValue :: String
}