1 {-# GHC_PRAGMA INTERFACE VERSION 3 #-}
2 interface ReadPrefix where
4 import HsDecls(ConDecl)
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_ #-}