ghc/compiler/yaccParser/UgenUtil.hi

   1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
   2 interface UgenUtil where
   3 import Name(Name)
   4 import PreludePS(_PackedString)
   5 import PreludePrimIO(returnPrimIO, thenPrimIO)
   6 import ProtoName(ProtoName)
   7 import SrcLoc(SrcLoc)
   8 infixr 1 `thenPrimIO`
   9 type ParseTree = _Addr
  10 data ProtoName
  11 type U_VOID_STAR = _Addr
  12 type U_hstring = _PackedString
  13 type U_long = Int
  14 type U_numId = Int
  15 type U_stringId = _PackedString
  16 type U_unkId = ProtoName
  17 type UgnM a = _PackedString -> _State _RealWorld -> (a, _State _RealWorld)
  18 getSrcFileUgn :: _PackedString -> _State _RealWorld -> (_PackedString, _State _RealWorld)
  19 initUgn :: _PackedString -> (_PackedString -> _State _RealWorld -> (a, _State _RealWorld)) -> _State _RealWorld -> (a, _State _RealWorld)
  20 ioToUgnM :: (_State _RealWorld -> (a, _State _RealWorld)) -> _PackedString -> _State _RealWorld -> (a, _State _RealWorld)
  21 mkSrcLocUgn :: Int -> _PackedString -> _State _RealWorld -> (SrcLoc, _State _RealWorld)
  22 rdU_VOID_STAR :: _Addr -> _PackedString -> _State _RealWorld -> (_Addr, _State _RealWorld)
  23 rdU_hstring :: _Addr -> _PackedString -> _State _RealWorld -> (_PackedString, _State _RealWorld)
  24 rdU_long :: Int -> _PackedString -> _State _RealWorld -> (Int, _State _RealWorld)
  25 rdU_numId :: _Addr -> _PackedString -> _State _RealWorld -> (Int, _State _RealWorld)
  26 rdU_stringId :: _Addr -> _PackedString -> _State _RealWorld -> (_PackedString, _State _RealWorld)
  27 rdU_unkId :: _Addr -> _PackedString -> _State _RealWorld -> (ProtoName, _State _RealWorld)
  28 returnPrimIO :: a -> _State _RealWorld -> (a, _State _RealWorld)
  29 returnUgn :: b -> a -> _State _RealWorld -> (b, _State _RealWorld)
  30 setSrcFileUgn :: _PackedString -> (_PackedString -> _State _RealWorld -> (a, _State _RealWorld)) -> _PackedString -> _State _RealWorld -> (a, _State _RealWorld)
  31 thenPrimIO :: (_State _RealWorld -> (a, _State _RealWorld)) -> (a -> _State _RealWorld -> (b, _State _RealWorld)) -> _State _RealWorld -> (b, _State _RealWorld)
  32 thenUgn :: (b -> _State _RealWorld -> (a, _State _RealWorld)) -> (a -> b -> _State _RealWorld -> (c, _State _RealWorld)) -> b -> _State _RealWorld -> (c, _State _RealWorld)
  33