[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / lib / prelude / TyIO_mc.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface PreludeIO where
3 import PreludeBuiltin(Bin, Char(..), Int(..), List(..))
4 import PreludeCore(Bool(..))
5 type BinCont = Bin -> [Response] -> [Request]
6 type Dialogue = [Response] -> [Request]
7 type FailCont = IOError -> [Response] -> [Request]
8 data IOError   = WriteError [Char] | ReadError [Char] | SearchError [Char] | FormatError [Char] | OtherError [Char] | EOD
9 data Request   = ReadFile [Char] | WriteFile [Char] [Char] | AppendFile [Char] [Char] | ReadBinFile [Char] | WriteBinFile [Char] Bin | AppendBinFile [Char] Bin | DeleteFile [Char] | StatusFile [Char] | ReadChan [Char] | AppendChan [Char] [Char] | ReadBinChan [Char] | AppendBinChan [Char] Bin | StatusChan [Char] | Echo Bool | GetArgs | GetProgName | GetEnv [Char] | SetEnv [Char] [Char] | SigAction Int SigAct
10 data Response   = Success | Str [Char] | StrList [[Char]] | Bn Bin | Failure IOError
11 data SigAct   = SAIgnore | SADefault | SACatch ([Response] -> [Request])
12 type StrCont = [Char] -> [Response] -> [Request]
13 type StrListCont = [[Char]] -> [Response] -> [Request]
14 type SuccCont = [Response] -> [Request]
15