ghc/compiler/main/MainMonad.hi

   1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
   2 interface MainMonad where
   3 import PreludeArray(_ByteArray)
   4 import SplitUniq(SplitUniqSupply)
   5 import Stdio(_FILE(..), fclose, fopen, fwrite)
   6 infixr 9 `thenMn`
   7 infixr 9 `thenMn_`
   8 type MainIO a = _State _RealWorld -> (a, _State _RealWorld)
   9 data SplitUniqSupply
  10 data _FILE   = _FILE Addr#
  11 exitMn :: Int -> _State _RealWorld -> ((), _State _RealWorld)
  12 fclose :: _FILE -> _State _RealWorld -> (Int, _State _RealWorld)
  13 fopen :: [Char] -> [Char] -> _State _RealWorld -> (_FILE, _State _RealWorld)
  14 fwrite :: _ByteArray Int -> Int -> Int -> _FILE -> _State _RealWorld -> (Int, _State _RealWorld)
  15 getArgsMn :: _State _RealWorld -> ([[Char]], _State _RealWorld)
  16 getSplitUniqSupplyMn :: Char -> _State _RealWorld -> (SplitUniqSupply, _State _RealWorld)
  17 readMn :: [Char] -> _State _RealWorld -> ([Char], _State _RealWorld)
  18 returnMn :: a -> _State _RealWorld -> (a, _State _RealWorld)
  19 thenMn :: (_State _RealWorld -> (a, _State _RealWorld)) -> (a -> _State _RealWorld -> (b, _State _RealWorld)) -> _State _RealWorld -> (b, _State _RealWorld)
  20 thenMn_ :: (_State _RealWorld -> (a, _State _RealWorld)) -> (_State _RealWorld -> (b, _State _RealWorld)) -> _State _RealWorld -> (b, _State _RealWorld)
  21 writeMn :: [Char] -> [Char] -> _State _RealWorld -> ((), _State _RealWorld)
  22 instance Eq _FILE
  23 instance _CCallable _FILE
  24 instance _CReturnable _FILE
  25