X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fprelude%2FTyIO_mg.hi;fp=ghc%2Flib%2Fprelude%2FTyIO_mg.hi;h=0000000000000000000000000000000000000000;hb=6de297d3c96538ada2b0164a27497bb2dbc72baf;hp=c674bbe9d0c1bfca8c9a4bb6b7c881fa8f8bb842;hpb=769ce8e72ae626356ce57162b7ff448c0ef7e700;p=ghc-hetmet.git diff --git a/ghc/lib/prelude/TyIO_mg.hi b/ghc/lib/prelude/TyIO_mg.hi deleted file mode 100644 index c674bbe..0000000 --- a/ghc/lib/prelude/TyIO_mg.hi +++ /dev/null @@ -1,15 +0,0 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} -interface PreludeIO where -import PreludeBuiltin(Bin, Char(..), Int(..), List(..)) -import PreludeCore(Bool(..)) -type BinCont = Bin -> [Response] -> [Request] -type Dialogue = [Response] -> [Request] -type FailCont = IOError -> [Response] -> [Request] -data IOError = WriteError [Char] | ReadError [Char] | SearchError [Char] | FormatError [Char] | OtherError [Char] | EOD -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 -data Response = Success | Str [Char] | StrList [[Char]] | Bn Bin | Failure IOError -data SigAct = SAIgnore | SADefault | SACatch ([Response] -> [Request]) -type StrCont = [Char] -> [Response] -> [Request] -type StrListCont = [[Char]] -> [Response] -> [Request] -type SuccCont = [Response] -> [Request] -