diff options
Diffstat (limited to 'ghc/compiler/abstractSyn/HsLit.hi')
| -rw-r--r-- | ghc/compiler/abstractSyn/HsLit.hi | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/ghc/compiler/abstractSyn/HsLit.hi b/ghc/compiler/abstractSyn/HsLit.hi new file mode 100644 index 0000000000..c19a0d365f --- /dev/null +++ b/ghc/compiler/abstractSyn/HsLit.hi @@ -0,0 +1,13 @@ +{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +interface HsLit where +import Outputable(Outputable) +import PreludePS(_PackedString) +import PreludeRatio(Ratio(..)) +import UniType(UniType) +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) +negLiteral :: Literal -> Literal + {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-} +instance Outputable Literal + {-# GHC_PRAGMA _M_ HsLit {-dfun-} _A_ 2 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 1 _CONSTM_ Outputable ppr (Literal) _N_ + ppr = _A_ 2 _U_ 0122 _N_ _S_ "AS" {_A_ 1 _U_ 122 _N_ _N_ _N_ _N_} _N_ _N_ #-} + |