[project @ 1996-03-19 08:58:34 by partain]
[ghc-hetmet.git] / ghc / compiler / reader / RdrLoop.lhi
1 This module breaks the loops among the reader modules
2 ReadPragmas and ReadPrefix.
3
4 \begin{code}
5 interface RdrLoop where
6
7 import PreludeStdIO     ( Maybe )
8
9 import U_list           ( U_list )
10 import U_maybe          ( U_maybe )
11 import U_ttype          ( U_ttype )
12 import UgenUtil         ( UgnM(..), ParseTree(..) )
13 import ReadPrefix       ( rdConDecl, rdMonoType, wlkList, wlkMaybe, wlkMonoType )
14 import RdrHsSyn         ( ProtoNameMonoType(..), ProtoNameConDecl(..) )
15
16 data U_list
17 data U_ttype
18
19 rdConDecl   :: ParseTree -> UgnM ProtoNameConDecl
20 rdMonoType  :: ParseTree -> UgnM ProtoNameMonoType
21 wlkList     :: (_Addr -> UgnM a) -> U_list -> UgnM [a]
22 wlkMaybe    :: (_Addr -> UgnM a) -> U_maybe -> UgnM (Maybe a)
23 wlkMonoType :: U_ttype -> UgnM ProtoNameMonoType
24 \end{code}
25