ad4b74d10f0635cf1263e363fc4c1b5e652b27d9
[ghc-hetmet.git] / ghc / compiler / reader / PrefixSyn.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface PrefixSyn where
3 import HsBinds(Sig)
4 import HsDecls(ClassDecl, DataTypeSig, DefaultDecl, InstDecl, SpecialisedInstanceSig, TyDecl)
5 import HsExpr(Expr)
6 import HsImpExp(IfaceImportDecl)
7 import HsPat(InPat)
8 import HsPragmas(ClassOpPragmas, GenPragmas)
9 import HsTypes(PolyType)
10 import PreludePS(_PackedString)
11 import ProtoName(ProtoName)
12 import SrcLoc(SrcLoc)
13 data RdrBinding   = RdrNullBind | RdrAndBindings RdrBinding RdrBinding | RdrTyData (TyDecl ProtoName) | RdrTySynonym (TyDecl ProtoName) | RdrFunctionBinding Int [RdrMatch] | RdrPatternBinding Int [RdrMatch] | RdrClassDecl (ClassDecl ProtoName (InPat ProtoName)) | RdrInstDecl (_PackedString -> _PackedString -> Bool -> InstDecl ProtoName (InPat ProtoName)) | RdrDefaultDecl (DefaultDecl ProtoName) | RdrIfaceImportDecl IfaceImportDecl | RdrTySig [ProtoName] (PolyType ProtoName) RdrTySigPragmas SrcLoc | RdrSpecValSig [Sig ProtoName] | RdrInlineValSig (Sig ProtoName) | RdrDeforestSig (Sig ProtoName) | RdrMagicUnfoldingSig (Sig ProtoName) | RdrSpecInstSig (SpecialisedInstanceSig ProtoName) | RdrAbstractTypeSig (DataTypeSig ProtoName) | RdrSpecDataSig (DataTypeSig ProtoName)
14 type RdrId = ProtoName
15 data RdrMatch   = RdrMatch Int _PackedString (InPat ProtoName) [(Expr ProtoName (InPat ProtoName), Expr ProtoName (InPat ProtoName))] RdrBinding
16 data RdrTySigPragmas   = RdrNoPragma | RdrGenPragmas (GenPragmas ProtoName) | RdrClassOpPragmas (ClassOpPragmas ProtoName)
17 type SigConverter = RdrBinding -> [Sig ProtoName]
18 type SrcFile = _PackedString
19 type SrcFun = _PackedString
20 type SrcLine = Int
21 readInteger :: [Char] -> Integer
22