[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / reader / ReadPrefix.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 3 #-}
2 interface ReadPrefix where
3 import AbsSyn(Module)
4 import HsDecls(ConDecl)
5 import HsPat(InPat)
6 import HsTypes(MonoType)
7 import LiftMonad(LiftM)
8 import ProtoName(ProtoName)
9 rdConDecl :: [Char] -> [Char] -> LiftM (ConDecl ProtoName, [Char])
10         {-# GHC_PRAGMA _A_ 2 _U_ 21 _S_ "LS" _N_ _N_ #-}
11 rdId :: [Char] -> LiftM (ProtoName, [Char])
12         {-# GHC_PRAGMA _A_ 1 _U_ 1 _S_ "S" _N_ _N_ #-}
13 rdIdString :: [Char] -> LiftM ([Char], [Char])
14         {-# GHC_PRAGMA _A_ 1 _U_ 2 _S_ "S" _N_ _N_ #-}
15 rdList :: ([Char] -> LiftM (a, [Char])) -> [Char] -> LiftM ([a], [Char])
16         {-# GHC_PRAGMA _A_ 2 _U_ 22 _S_ "LS" _N_ _N_ #-}
17 rdModule :: [Char] -> ([Char], [Char] -> Bool, Module ProtoName (InPat ProtoName))
18         {-# GHC_PRAGMA _A_ 1 _U_ 1 _S_ "S" _N_ _N_ #-}
19 rdMonoType :: [Char] -> LiftM (MonoType ProtoName, [Char])
20         {-# GHC_PRAGMA _A_ 1 _U_ 2 _S_ "S" _N_ _N_ #-}
21 rdString :: [Char] -> LiftM ([Char], [Char])
22         {-# GHC_PRAGMA _A_ 1 _U_ 2 _S_ "S" _N_ _N_ #-}
23