diff options
| author | partain <unknown> | 1996-01-18 16:52:47 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-01-18 16:52:47 +0000 |
| commit | 68a1f0233996ed79824d11d946e9801473f6946c (patch) | |
| tree | 7068dbd8dde48a78e28b57605ca09b6df875c1bd /ghc/lib/haskell-1.3 | |
| parent | ed7464364646a28aaf27d1dbc2ceaf7a9d9ce62f (diff) | |
| download | haskell-68a1f0233996ed79824d11d946e9801473f6946c.tar.gz | |
[project @ 1996-01-18 16:33:17 by partain]
Alleged post-Sansom 0.27+ code
Diffstat (limited to 'ghc/lib/haskell-1.3')
66 files changed, 514 insertions, 512 deletions
diff --git a/ghc/lib/haskell-1.3/LibCPUTime.hi b/ghc/lib/haskell-1.3/LibCPUTime.hi index 99f7f61033..42cd93802c 100644 --- a/ghc/lib/haskell-1.3/LibCPUTime.hi +++ b/ghc/lib/haskell-1.3/LibCPUTime.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibCPUTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibCPUTime_mc.hi b/ghc/lib/haskell-1.3/LibCPUTime_mc.hi index 99f7f61033..42cd93802c 100644 --- a/ghc/lib/haskell-1.3/LibCPUTime_mc.hi +++ b/ghc/lib/haskell-1.3/LibCPUTime_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibCPUTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibCPUTime_mp.hi b/ghc/lib/haskell-1.3/LibCPUTime_mp.hi index 99f7f61033..42cd93802c 100644 --- a/ghc/lib/haskell-1.3/LibCPUTime_mp.hi +++ b/ghc/lib/haskell-1.3/LibCPUTime_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibCPUTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibCPUTime_p.hi b/ghc/lib/haskell-1.3/LibCPUTime_p.hi index 99f7f61033..42cd93802c 100644 --- a/ghc/lib/haskell-1.3/LibCPUTime_p.hi +++ b/ghc/lib/haskell-1.3/LibCPUTime_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibCPUTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibCPUTime_t.hi b/ghc/lib/haskell-1.3/LibCPUTime_t.hi index 99f7f61033..42cd93802c 100644 --- a/ghc/lib/haskell-1.3/LibCPUTime_t.hi +++ b/ghc/lib/haskell-1.3/LibCPUTime_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibCPUTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibDirectory.hi b/ghc/lib/haskell-1.3/LibDirectory.hi index f544b757f8..0d1ea29d29 100644 --- a/ghc/lib/haskell-1.3/LibDirectory.hi +++ b/ghc/lib/haskell-1.3/LibDirectory.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibDirectory where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibDirectory_mc.hi b/ghc/lib/haskell-1.3/LibDirectory_mc.hi index f544b757f8..0d1ea29d29 100644 --- a/ghc/lib/haskell-1.3/LibDirectory_mc.hi +++ b/ghc/lib/haskell-1.3/LibDirectory_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibDirectory where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibDirectory_mp.hi b/ghc/lib/haskell-1.3/LibDirectory_mp.hi index f544b757f8..0d1ea29d29 100644 --- a/ghc/lib/haskell-1.3/LibDirectory_mp.hi +++ b/ghc/lib/haskell-1.3/LibDirectory_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibDirectory where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibDirectory_p.hi b/ghc/lib/haskell-1.3/LibDirectory_p.hi index f544b757f8..0d1ea29d29 100644 --- a/ghc/lib/haskell-1.3/LibDirectory_p.hi +++ b/ghc/lib/haskell-1.3/LibDirectory_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibDirectory where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibDirectory_t.hi b/ghc/lib/haskell-1.3/LibDirectory_t.hi index f544b757f8..0d1ea29d29 100644 --- a/ghc/lib/haskell-1.3/LibDirectory_t.hi +++ b/ghc/lib/haskell-1.3/LibDirectory_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibDirectory where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosix.hi b/ghc/lib/haskell-1.3/LibPosix.hi index 6b61f3bda5..d264cd3388 100644 --- a/ghc/lib/haskell-1.3/LibPosix.hi +++ b/ghc/lib/haskell-1.3/LibPosix.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosix where import LibDirectory(getCurrentDirectory, removeDirectory, setCurrentDirectory) import LibPosixDB(GroupEntry(..), UserEntry(..), getGroupEntryForID, getGroupEntryForName, getUserEntryForID, getUserEntryForName, groupID, groupMembers, groupName, homeDirectory, userGroupID, userID, userName, userShell) @@ -632,40 +632,40 @@ withoutMode :: _ByteArray () -> TerminalMode -> _ByteArray () {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(AP)E" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosixDB.hi b/ghc/lib/haskell-1.3/LibPosixDB.hi index 75e254ad1a..16fbcabba1 100644 --- a/ghc/lib/haskell-1.3/LibPosixDB.hi +++ b/ghc/lib/haskell-1.3/LibPosixDB.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixDB where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixDB_mc.hi b/ghc/lib/haskell-1.3/LibPosixDB_mc.hi index 75e254ad1a..16fbcabba1 100644 --- a/ghc/lib/haskell-1.3/LibPosixDB_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixDB_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixDB where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixDB_mp.hi b/ghc/lib/haskell-1.3/LibPosixDB_mp.hi index 75e254ad1a..16fbcabba1 100644 --- a/ghc/lib/haskell-1.3/LibPosixDB_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixDB_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixDB where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixDB_p.hi b/ghc/lib/haskell-1.3/LibPosixDB_p.hi index 75e254ad1a..16fbcabba1 100644 --- a/ghc/lib/haskell-1.3/LibPosixDB_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixDB_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixDB where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixDB_t.hi b/ghc/lib/haskell-1.3/LibPosixDB_t.hi index 75e254ad1a..16fbcabba1 100644 --- a/ghc/lib/haskell-1.3/LibPosixDB_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixDB_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixDB where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixErr.hi b/ghc/lib/haskell-1.3/LibPosixErr.hi index 5e63c231e8..bb973ad480 100644 --- a/ghc/lib/haskell-1.3/LibPosixErr.hi +++ b/ghc/lib/haskell-1.3/LibPosixErr.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixErr where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixErr_mc.hi b/ghc/lib/haskell-1.3/LibPosixErr_mc.hi index 5e63c231e8..bb973ad480 100644 --- a/ghc/lib/haskell-1.3/LibPosixErr_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixErr_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixErr where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixErr_mp.hi b/ghc/lib/haskell-1.3/LibPosixErr_mp.hi index 5e63c231e8..bb973ad480 100644 --- a/ghc/lib/haskell-1.3/LibPosixErr_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixErr_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixErr where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixErr_p.hi b/ghc/lib/haskell-1.3/LibPosixErr_p.hi index 5e63c231e8..bb973ad480 100644 --- a/ghc/lib/haskell-1.3/LibPosixErr_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixErr_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixErr where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixErr_t.hi b/ghc/lib/haskell-1.3/LibPosixErr_t.hi index 5e63c231e8..bb973ad480 100644 --- a/ghc/lib/haskell-1.3/LibPosixErr_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixErr_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixErr where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixFiles.hi b/ghc/lib/haskell-1.3/LibPosixFiles.hi index c27d8e1778..6065a1f757 100644 --- a/ghc/lib/haskell-1.3/LibPosixFiles.hi +++ b/ghc/lib/haskell-1.3/LibPosixFiles.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixFiles where import LibDirectory(removeDirectory) import PreludeArray(_ByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixFiles_mc.hi b/ghc/lib/haskell-1.3/LibPosixFiles_mc.hi index c27d8e1778..6065a1f757 100644 --- a/ghc/lib/haskell-1.3/LibPosixFiles_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixFiles_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixFiles where import LibDirectory(removeDirectory) import PreludeArray(_ByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixFiles_mp.hi b/ghc/lib/haskell-1.3/LibPosixFiles_mp.hi index c27d8e1778..6065a1f757 100644 --- a/ghc/lib/haskell-1.3/LibPosixFiles_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixFiles_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixFiles where import LibDirectory(removeDirectory) import PreludeArray(_ByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixFiles_p.hi b/ghc/lib/haskell-1.3/LibPosixFiles_p.hi index c27d8e1778..6065a1f757 100644 --- a/ghc/lib/haskell-1.3/LibPosixFiles_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixFiles_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixFiles where import LibDirectory(removeDirectory) import PreludeArray(_ByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixFiles_t.hi b/ghc/lib/haskell-1.3/LibPosixFiles_t.hi index c27d8e1778..6065a1f757 100644 --- a/ghc/lib/haskell-1.3/LibPosixFiles_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixFiles_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixFiles where import LibDirectory(removeDirectory) import PreludeArray(_ByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixIO.hi b/ghc/lib/haskell-1.3/LibPosixIO.hi index 6736ff11d2..ba97a1bcd9 100644 --- a/ghc/lib/haskell-1.3/LibPosixIO.hi +++ b/ghc/lib/haskell-1.3/LibPosixIO.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixIO where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixIO_mc.hi b/ghc/lib/haskell-1.3/LibPosixIO_mc.hi index 6736ff11d2..ba97a1bcd9 100644 --- a/ghc/lib/haskell-1.3/LibPosixIO_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixIO_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixIO where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixIO_mp.hi b/ghc/lib/haskell-1.3/LibPosixIO_mp.hi index 6736ff11d2..ba97a1bcd9 100644 --- a/ghc/lib/haskell-1.3/LibPosixIO_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixIO_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixIO where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixIO_p.hi b/ghc/lib/haskell-1.3/LibPosixIO_p.hi index 6736ff11d2..ba97a1bcd9 100644 --- a/ghc/lib/haskell-1.3/LibPosixIO_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixIO_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixIO where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixIO_t.hi b/ghc/lib/haskell-1.3/LibPosixIO_t.hi index 6736ff11d2..ba97a1bcd9 100644 --- a/ghc/lib/haskell-1.3/LibPosixIO_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixIO_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixIO where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) diff --git a/ghc/lib/haskell-1.3/LibPosixProcEnv.hi b/ghc/lib/haskell-1.3/LibPosixProcEnv.hi index 9051c67931..a3953927b2 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcEnv.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcEnv.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcEnv where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixProcEnv_mc.hi b/ghc/lib/haskell-1.3/LibPosixProcEnv_mc.hi index 9051c67931..a3953927b2 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcEnv_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcEnv_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcEnv where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixProcEnv_mp.hi b/ghc/lib/haskell-1.3/LibPosixProcEnv_mp.hi index 9051c67931..a3953927b2 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcEnv_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcEnv_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcEnv where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixProcEnv_p.hi b/ghc/lib/haskell-1.3/LibPosixProcEnv_p.hi index 9051c67931..a3953927b2 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcEnv_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcEnv_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcEnv where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixProcEnv_t.hi b/ghc/lib/haskell-1.3/LibPosixProcEnv_t.hi index 9051c67931..a3953927b2 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcEnv_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcEnv_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcEnv where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixProcPrim.hi b/ghc/lib/haskell-1.3/LibPosixProcPrim.hi index 3c57a24709..79b3a528ab 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcPrim.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcPrim.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcPrim where import LibSystem(ExitCode) import PreludeArray(_ByteArray) @@ -154,40 +154,40 @@ userDefinedSignal2 :: Int {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosixProcPrim_mc.hi b/ghc/lib/haskell-1.3/LibPosixProcPrim_mc.hi index 3c57a24709..79b3a528ab 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcPrim_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcPrim_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcPrim where import LibSystem(ExitCode) import PreludeArray(_ByteArray) @@ -154,40 +154,40 @@ userDefinedSignal2 :: Int {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosixProcPrim_mp.hi b/ghc/lib/haskell-1.3/LibPosixProcPrim_mp.hi index 22cabc13f0..ce4e8a09b5 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcPrim_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcPrim_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcPrim where import LibSystem(ExitCode) import PreludeArray(_ByteArray) @@ -55,7 +55,7 @@ illegalInstruction :: Int inSignalSet :: Int -> _ByteArray () -> Bool {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(AP)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} installHandler :: Int -> Handler -> Maybe (_ByteArray ()) -> _State _RealWorld -> (Either IOError13 Handler, _State _RealWorld) - {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 4 XXXX 6 \ (u0 :: Int) (u1 :: Handler) (u2 :: Maybe (_ByteArray ())) (u3 :: _State _RealWorld) -> _APP_ _TYAPP_ error { (Int -> Handler -> Maybe (_ByteArray ()) -> _State _RealWorld -> (Either IOError13 Handler, _State _RealWorld)) } [ _NOREP_S_ "installHandler: not available for Parallel Haskell", u0, u1, u2, u3 ] _N_ #-} + {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ _!_ _N_ _N_ #-} internalAbort :: Int {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} keyboardSignal :: Int @@ -154,40 +154,40 @@ userDefinedSignal2 :: Int {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosixProcPrim_p.hi b/ghc/lib/haskell-1.3/LibPosixProcPrim_p.hi index 3c57a24709..79b3a528ab 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcPrim_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcPrim_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcPrim where import LibSystem(ExitCode) import PreludeArray(_ByteArray) @@ -154,40 +154,40 @@ userDefinedSignal2 :: Int {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosixProcPrim_t.hi b/ghc/lib/haskell-1.3/LibPosixProcPrim_t.hi index 3c57a24709..79b3a528ab 100644 --- a/ghc/lib/haskell-1.3/LibPosixProcPrim_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixProcPrim_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixProcPrim where import LibSystem(ExitCode) import PreludeArray(_ByteArray) @@ -154,40 +154,40 @@ userDefinedSignal2 :: Int {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosixTTY.hi b/ghc/lib/haskell-1.3/LibPosixTTY.hi index 80d19e9026..cb478cd893 100644 --- a/ghc/lib/haskell-1.3/LibPosixTTY.hi +++ b/ghc/lib/haskell-1.3/LibPosixTTY.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixTTY where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixTTY_mc.hi b/ghc/lib/haskell-1.3/LibPosixTTY_mc.hi index 80d19e9026..cb478cd893 100644 --- a/ghc/lib/haskell-1.3/LibPosixTTY_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixTTY_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixTTY where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixTTY_mp.hi b/ghc/lib/haskell-1.3/LibPosixTTY_mp.hi index 80d19e9026..cb478cd893 100644 --- a/ghc/lib/haskell-1.3/LibPosixTTY_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixTTY_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixTTY where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixTTY_p.hi b/ghc/lib/haskell-1.3/LibPosixTTY_p.hi index 80d19e9026..cb478cd893 100644 --- a/ghc/lib/haskell-1.3/LibPosixTTY_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixTTY_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixTTY where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixTTY_t.hi b/ghc/lib/haskell-1.3/LibPosixTTY_t.hi index 80d19e9026..cb478cd893 100644 --- a/ghc/lib/haskell-1.3/LibPosixTTY_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixTTY_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixTTY where import PreludeArray(_ByteArray) import PreludeIOError(IOError13) diff --git a/ghc/lib/haskell-1.3/LibPosixUtil.hi b/ghc/lib/haskell-1.3/LibPosixUtil.hi index af4cf5cec6..3fb7bb5593 100644 --- a/ghc/lib/haskell-1.3/LibPosixUtil.hi +++ b/ghc/lib/haskell-1.3/LibPosixUtil.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixUtil where import PreludeArray(_ByteArray) import PreludeGlaST(_MutableByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixUtil_mc.hi b/ghc/lib/haskell-1.3/LibPosixUtil_mc.hi index af4cf5cec6..3fb7bb5593 100644 --- a/ghc/lib/haskell-1.3/LibPosixUtil_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosixUtil_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixUtil where import PreludeArray(_ByteArray) import PreludeGlaST(_MutableByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixUtil_mp.hi b/ghc/lib/haskell-1.3/LibPosixUtil_mp.hi index af4cf5cec6..3fb7bb5593 100644 --- a/ghc/lib/haskell-1.3/LibPosixUtil_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosixUtil_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixUtil where import PreludeArray(_ByteArray) import PreludeGlaST(_MutableByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixUtil_p.hi b/ghc/lib/haskell-1.3/LibPosixUtil_p.hi index af4cf5cec6..3fb7bb5593 100644 --- a/ghc/lib/haskell-1.3/LibPosixUtil_p.hi +++ b/ghc/lib/haskell-1.3/LibPosixUtil_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixUtil where import PreludeArray(_ByteArray) import PreludeGlaST(_MutableByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosixUtil_t.hi b/ghc/lib/haskell-1.3/LibPosixUtil_t.hi index af4cf5cec6..3fb7bb5593 100644 --- a/ghc/lib/haskell-1.3/LibPosixUtil_t.hi +++ b/ghc/lib/haskell-1.3/LibPosixUtil_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosixUtil where import PreludeArray(_ByteArray) import PreludeGlaST(_MutableByteArray) diff --git a/ghc/lib/haskell-1.3/LibPosix_mc.hi b/ghc/lib/haskell-1.3/LibPosix_mc.hi index 6b61f3bda5..d264cd3388 100644 --- a/ghc/lib/haskell-1.3/LibPosix_mc.hi +++ b/ghc/lib/haskell-1.3/LibPosix_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosix where import LibDirectory(getCurrentDirectory, removeDirectory, setCurrentDirectory) import LibPosixDB(GroupEntry(..), UserEntry(..), getGroupEntryForID, getGroupEntryForName, getUserEntryForID, getUserEntryForName, groupID, groupMembers, groupName, homeDirectory, userGroupID, userID, userName, userShell) @@ -632,40 +632,40 @@ withoutMode :: _ByteArray () -> TerminalMode -> _ByteArray () {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(AP)E" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosix_mp.hi b/ghc/lib/haskell-1.3/LibPosix_mp.hi index 2a3026b941..10a3876e55 100644 --- a/ghc/lib/haskell-1.3/LibPosix_mp.hi +++ b/ghc/lib/haskell-1.3/LibPosix_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosix where import LibDirectory(getCurrentDirectory, removeDirectory, setCurrentDirectory) import LibPosixDB(GroupEntry(..), UserEntry(..), getGroupEntryForID, getGroupEntryForName, getUserEntryForID, getUserEntryForName, groupID, groupMembers, groupName, homeDirectory, userGroupID, userID, userName, userShell) @@ -485,7 +485,7 @@ illegalInstruction :: Int inSignalSet :: Int -> _ByteArray () -> Bool {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(P)U(AP)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} installHandler :: Int -> Handler -> Maybe (_ByteArray ()) -> _State _RealWorld -> (Either IOError13 Handler, _State _RealWorld) - {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 4 XXXX 6 \ (u0 :: Int) (u1 :: Handler) (u2 :: Maybe (_ByteArray ())) (u3 :: _State _RealWorld) -> _APP_ _TYAPP_ error { (Int -> Handler -> Maybe (_ByteArray ()) -> _State _RealWorld -> (Either IOError13 Handler, _State _RealWorld)) } [ _NOREP_S_ "installHandler: not available for Parallel Haskell", u0, u1, u2, u3 ] _N_ #-} + {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ _!_ _N_ _N_ #-} internalAbort :: Int {-# GHC_PRAGMA _A_ 0 _N_ _N_ _N_ _N_ _N_ #-} keyboardSignal :: Int @@ -632,40 +632,40 @@ withoutMode :: _ByteArray () -> TerminalMode -> _ByteArray () {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(AP)E" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosix_p.hi b/ghc/lib/haskell-1.3/LibPosix_p.hi index 6b61f3bda5..d264cd3388 100644 --- a/ghc/lib/haskell-1.3/LibPosix_p.hi +++ b/ghc/lib/haskell-1.3/LibPosix_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosix where import LibDirectory(getCurrentDirectory, removeDirectory, setCurrentDirectory) import LibPosixDB(GroupEntry(..), UserEntry(..), getGroupEntryForID, getGroupEntryForName, getUserEntryForID, getUserEntryForName, groupID, groupMembers, groupName, homeDirectory, userGroupID, userID, userName, userShell) @@ -632,40 +632,40 @@ withoutMode :: _ByteArray () -> TerminalMode -> _ByteArray () {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(AP)E" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibPosix_t.hi b/ghc/lib/haskell-1.3/LibPosix_t.hi index 6b61f3bda5..d264cd3388 100644 --- a/ghc/lib/haskell-1.3/LibPosix_t.hi +++ b/ghc/lib/haskell-1.3/LibPosix_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibPosix where import LibDirectory(getCurrentDirectory, removeDirectory, setCurrentDirectory) import LibPosixDB(GroupEntry(..), UserEntry(..), getGroupEntryForID, getGroupEntryForName, getUserEntryForID, getUserEntryForName, groupID, groupMembers, groupName, homeDirectory, userGroupID, userID, userName, userShell) @@ -632,40 +632,40 @@ withoutMode :: _ByteArray () -> TerminalMode -> _ByteArray () {-# GHC_PRAGMA _A_ 2 _U_ 11 _N_ _S_ "U(AP)E" {_A_ 2 _U_ 21 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool)] [_CONSTM_ Eq (==) (ProcessStatus), _CONSTM_ Eq (/=) (ProcessStatus)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "SS" _N_ _N_ } #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ProcessStatus}}, (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> Bool), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> ProcessStatus), (ProcessStatus -> ProcessStatus -> _CMP_TAG)] [_DFUN_ Eq (ProcessStatus), _CONSTM_ Ord (<) (ProcessStatus), _CONSTM_ Ord (<=) (ProcessStatus), _CONSTM_ Ord (>=) (ProcessStatus), _CONSTM_ Ord (>) (ProcessStatus), _CONSTM_ Ord max (ProcessStatus), _CONSTM_ Ord min (ProcessStatus), _CONSTM_ Ord _tagCmp (ProcessStatus)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ProcessStatus {-# GHC_PRAGMA _M_ LibPosixProcPrim {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ProcessStatus, [Char])]), (Int -> ProcessStatus -> [Char] -> [Char]), ([Char] -> [([ProcessStatus], [Char])]), ([ProcessStatus] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ProcessStatus), _CONSTM_ Text showsPrec (ProcessStatus), _CONSTM_ Text readList (ProcessStatus), _CONSTM_ Text showList (ProcessStatus)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _S_ "U(P)L" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibSystem.hi b/ghc/lib/haskell-1.3/LibSystem.hi index a82df1a972..8da480083d 100644 --- a/ghc/lib/haskell-1.3/LibSystem.hi +++ b/ghc/lib/haskell-1.3/LibSystem.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibSystem where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -15,21 +15,21 @@ system :: [Char] -> _State _RealWorld -> (Either IOError13 ExitCode, _State _Rea {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibSystem_mc.hi b/ghc/lib/haskell-1.3/LibSystem_mc.hi index a82df1a972..8da480083d 100644 --- a/ghc/lib/haskell-1.3/LibSystem_mc.hi +++ b/ghc/lib/haskell-1.3/LibSystem_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibSystem where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -15,21 +15,21 @@ system :: [Char] -> _State _RealWorld -> (Either IOError13 ExitCode, _State _Rea {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibSystem_mp.hi b/ghc/lib/haskell-1.3/LibSystem_mp.hi index a82df1a972..8da480083d 100644 --- a/ghc/lib/haskell-1.3/LibSystem_mp.hi +++ b/ghc/lib/haskell-1.3/LibSystem_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibSystem where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -15,21 +15,21 @@ system :: [Char] -> _State _RealWorld -> (Either IOError13 ExitCode, _State _Rea {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibSystem_p.hi b/ghc/lib/haskell-1.3/LibSystem_p.hi index a82df1a972..8da480083d 100644 --- a/ghc/lib/haskell-1.3/LibSystem_p.hi +++ b/ghc/lib/haskell-1.3/LibSystem_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibSystem where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -15,21 +15,21 @@ system :: [Char] -> _State _RealWorld -> (Either IOError13 ExitCode, _State _Rea {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibSystem_t.hi b/ghc/lib/haskell-1.3/LibSystem_t.hi index a82df1a972..8da480083d 100644 --- a/ghc/lib/haskell-1.3/LibSystem_t.hi +++ b/ghc/lib/haskell-1.3/LibSystem_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibSystem where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -15,21 +15,21 @@ system :: [Char] -> _State _RealWorld -> (Either IOError13 ExitCode, _State _Rea {-# GHC_PRAGMA _A_ 2 _U_ 21 _N_ _S_ "SU(P)" {_A_ 2 _U_ 22 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool)] [_CONSTM_ Eq (==) (ExitCode), _CONSTM_ Eq (/=) (ExitCode)] _N_ - (==) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (/=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Ord ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ExitCode}}, (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> Bool), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> ExitCode), (ExitCode -> ExitCode -> _CMP_TAG)] [_DFUN_ Eq (ExitCode), _CONSTM_ Ord (<) (ExitCode), _CONSTM_ Ord (<=) (ExitCode), _CONSTM_ Ord (>=) (ExitCode), _CONSTM_ Ord (>) (ExitCode), _CONSTM_ Ord max (ExitCode), _CONSTM_ Ord min (ExitCode), _CONSTM_ Ord _tagCmp (ExitCode)] _N_ - (<) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (<=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>=) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - (>) = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_, - _tagCmp = _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + (>) = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 22 _N_ _S_ "SS" _N_ _N_ } #-} instance Text ExitCode {-# GHC_PRAGMA _M_ LibSystem {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ExitCode, [Char])]), (Int -> ExitCode -> [Char] -> [Char]), ([Char] -> [([ExitCode], [Char])]), ([ExitCode] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ExitCode), _CONSTM_ Text showsPrec (ExitCode), _CONSTM_ Text readList (ExitCode), _CONSTM_ Text showList (ExitCode)] _N_ - readsPrec = _A_ 2 _U_ 12 _N_ _N_ _N_ _N_, - showsPrec = _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 12 _N_ _N_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 112 _N_ _S_ "LS" _N_ _N_ }, + readList = { _A_ 0 _U_ 2 _N_ _N_ _N_ _N_ }, + showList = { _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibTime.hi b/ghc/lib/haskell-1.3/LibTime.hi index 024af1d0b7..05f711b32f 100644 --- a/ghc/lib/haskell-1.3/LibTime.hi +++ b/ghc/lib/haskell-1.3/LibTime.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -6,9 +6,9 @@ data CalendarTime = CalendarTime Int Int Int Int Int Int Integer Int Int [Char data ClockTime {-# GHC_PRAGMA TOD Integer Integer #-} data TimeDiff = TimeDiff Int Int Int Int Int Int Integer addToClockTime :: TimeDiff -> ClockTime -> ClockTime - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: TimeDiff) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { ClockTime } [ _NOREP_S_ "addToClockTime unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} diffClockTimes :: ClockTime -> ClockTime -> TimeDiff - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: ClockTime) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { TimeDiff } [ _NOREP_S_ "diffClockTimes unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} getClockTime :: _State _RealWorld -> (Either IOError13 ClockTime, _State _RealWorld) {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} toCalendarTime :: ClockTime -> CalendarTime @@ -19,34 +19,34 @@ toUTCTime :: ClockTime -> CalendarTime {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(PPP)L)" {_A_ 4 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool)] [_CONSTM_ Eq (==) (ClockTime), _CONSTM_ Eq (/=) (ClockTime)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Eq TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool)] [_CONSTM_ Eq (==) (TimeDiff), _CONSTM_ Eq (/=) (TimeDiff)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Ord ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ClockTime}}, (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> _CMP_TAG)] [_DFUN_ Eq (ClockTime), _CONSTM_ Ord (<) (ClockTime), _CONSTM_ Ord (<=) (ClockTime), _CONSTM_ Ord (>=) (ClockTime), _CONSTM_ Ord (>) (ClockTime), _CONSTM_ Ord max (ClockTime), _CONSTM_ Ord min (ClockTime), _CONSTM_ Ord _tagCmp (ClockTime)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - max = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - min = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + max = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + min = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Ord TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq TimeDiff}}, (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> _CMP_TAG)] [_DFUN_ Eq (TimeDiff), _CONSTM_ Ord (<) (TimeDiff), _CONSTM_ Ord (<=) (TimeDiff), _CONSTM_ Ord (>=) (TimeDiff), _CONSTM_ Ord (>) (TimeDiff), _CONSTM_ Ord max (TimeDiff), _CONSTM_ Ord min (TimeDiff), _CONSTM_ Ord _tagCmp (TimeDiff)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Text ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ClockTime, [Char])]), (Int -> ClockTime -> [Char] -> [Char]), ([Char] -> [([ClockTime], [Char])]), ([ClockTime] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ClockTime), _CONSTM_ Text showsPrec (ClockTime), _CONSTM_ Text readList (ClockTime), _CONSTM_ Text showList (ClockTime)] _N_ - readsPrec = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Int) (u1 :: [Char]) -> _APP_ _TYAPP_ patError# { (Int -> [Char] -> [(ClockTime, [Char])]) } [ _NOREP_S_ "%DPreludeCore.Text.readsPrec\"", u0, u1 ] _N_, - showsPrec = _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 22 _N_ _S_ _!_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ }, + readList = { _A_ 1 _U_ 2 _N_ _S_ _!_ _N_ _N_ }, + showList = { _A_ 1 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibTime.lhs b/ghc/lib/haskell-1.3/LibTime.lhs index e3d6607fcf..c6fcbd4616 100644 --- a/ghc/lib/haskell-1.3/LibTime.lhs +++ b/ghc/lib/haskell-1.3/LibTime.lhs @@ -54,6 +54,8 @@ instance Text ClockTime where _ccall_ strlen str `thenPrimIO` \ len -> _packCBytesST len str `thenStrictlyST` \ ps -> returnPrimIO (_unpackPS ps))) + + showList = _showList (showsPrec 0) \end{code} diff --git a/ghc/lib/haskell-1.3/LibTime_mc.hi b/ghc/lib/haskell-1.3/LibTime_mc.hi index 024af1d0b7..05f711b32f 100644 --- a/ghc/lib/haskell-1.3/LibTime_mc.hi +++ b/ghc/lib/haskell-1.3/LibTime_mc.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -6,9 +6,9 @@ data CalendarTime = CalendarTime Int Int Int Int Int Int Integer Int Int [Char data ClockTime {-# GHC_PRAGMA TOD Integer Integer #-} data TimeDiff = TimeDiff Int Int Int Int Int Int Integer addToClockTime :: TimeDiff -> ClockTime -> ClockTime - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: TimeDiff) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { ClockTime } [ _NOREP_S_ "addToClockTime unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} diffClockTimes :: ClockTime -> ClockTime -> TimeDiff - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: ClockTime) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { TimeDiff } [ _NOREP_S_ "diffClockTimes unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} getClockTime :: _State _RealWorld -> (Either IOError13 ClockTime, _State _RealWorld) {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} toCalendarTime :: ClockTime -> CalendarTime @@ -19,34 +19,34 @@ toUTCTime :: ClockTime -> CalendarTime {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(PPP)L)" {_A_ 4 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool)] [_CONSTM_ Eq (==) (ClockTime), _CONSTM_ Eq (/=) (ClockTime)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Eq TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool)] [_CONSTM_ Eq (==) (TimeDiff), _CONSTM_ Eq (/=) (TimeDiff)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Ord ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ClockTime}}, (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> _CMP_TAG)] [_DFUN_ Eq (ClockTime), _CONSTM_ Ord (<) (ClockTime), _CONSTM_ Ord (<=) (ClockTime), _CONSTM_ Ord (>=) (ClockTime), _CONSTM_ Ord (>) (ClockTime), _CONSTM_ Ord max (ClockTime), _CONSTM_ Ord min (ClockTime), _CONSTM_ Ord _tagCmp (ClockTime)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - max = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - min = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + max = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + min = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Ord TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq TimeDiff}}, (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> _CMP_TAG)] [_DFUN_ Eq (TimeDiff), _CONSTM_ Ord (<) (TimeDiff), _CONSTM_ Ord (<=) (TimeDiff), _CONSTM_ Ord (>=) (TimeDiff), _CONSTM_ Ord (>) (TimeDiff), _CONSTM_ Ord max (TimeDiff), _CONSTM_ Ord min (TimeDiff), _CONSTM_ Ord _tagCmp (TimeDiff)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Text ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ClockTime, [Char])]), (Int -> ClockTime -> [Char] -> [Char]), ([Char] -> [([ClockTime], [Char])]), ([ClockTime] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ClockTime), _CONSTM_ Text showsPrec (ClockTime), _CONSTM_ Text readList (ClockTime), _CONSTM_ Text showList (ClockTime)] _N_ - readsPrec = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Int) (u1 :: [Char]) -> _APP_ _TYAPP_ patError# { (Int -> [Char] -> [(ClockTime, [Char])]) } [ _NOREP_S_ "%DPreludeCore.Text.readsPrec\"", u0, u1 ] _N_, - showsPrec = _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 22 _N_ _S_ _!_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ }, + readList = { _A_ 1 _U_ 2 _N_ _S_ _!_ _N_ _N_ }, + showList = { _A_ 1 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibTime_mp.hi b/ghc/lib/haskell-1.3/LibTime_mp.hi index 024af1d0b7..05f711b32f 100644 --- a/ghc/lib/haskell-1.3/LibTime_mp.hi +++ b/ghc/lib/haskell-1.3/LibTime_mp.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -6,9 +6,9 @@ data CalendarTime = CalendarTime Int Int Int Int Int Int Integer Int Int [Char data ClockTime {-# GHC_PRAGMA TOD Integer Integer #-} data TimeDiff = TimeDiff Int Int Int Int Int Int Integer addToClockTime :: TimeDiff -> ClockTime -> ClockTime - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: TimeDiff) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { ClockTime } [ _NOREP_S_ "addToClockTime unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} diffClockTimes :: ClockTime -> ClockTime -> TimeDiff - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: ClockTime) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { TimeDiff } [ _NOREP_S_ "diffClockTimes unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} getClockTime :: _State _RealWorld -> (Either IOError13 ClockTime, _State _RealWorld) {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} toCalendarTime :: ClockTime -> CalendarTime @@ -19,34 +19,34 @@ toUTCTime :: ClockTime -> CalendarTime {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(PPP)L)" {_A_ 4 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool)] [_CONSTM_ Eq (==) (ClockTime), _CONSTM_ Eq (/=) (ClockTime)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Eq TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool)] [_CONSTM_ Eq (==) (TimeDiff), _CONSTM_ Eq (/=) (TimeDiff)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Ord ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ClockTime}}, (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> _CMP_TAG)] [_DFUN_ Eq (ClockTime), _CONSTM_ Ord (<) (ClockTime), _CONSTM_ Ord (<=) (ClockTime), _CONSTM_ Ord (>=) (ClockTime), _CONSTM_ Ord (>) (ClockTime), _CONSTM_ Ord max (ClockTime), _CONSTM_ Ord min (ClockTime), _CONSTM_ Ord _tagCmp (ClockTime)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - max = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - min = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + max = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + min = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Ord TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq TimeDiff}}, (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> _CMP_TAG)] [_DFUN_ Eq (TimeDiff), _CONSTM_ Ord (<) (TimeDiff), _CONSTM_ Ord (<=) (TimeDiff), _CONSTM_ Ord (>=) (TimeDiff), _CONSTM_ Ord (>) (TimeDiff), _CONSTM_ Ord max (TimeDiff), _CONSTM_ Ord min (TimeDiff), _CONSTM_ Ord _tagCmp (TimeDiff)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Text ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ClockTime, [Char])]), (Int -> ClockTime -> [Char] -> [Char]), ([Char] -> [([ClockTime], [Char])]), ([ClockTime] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ClockTime), _CONSTM_ Text showsPrec (ClockTime), _CONSTM_ Text readList (ClockTime), _CONSTM_ Text showList (ClockTime)] _N_ - readsPrec = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Int) (u1 :: [Char]) -> _APP_ _TYAPP_ patError# { (Int -> [Char] -> [(ClockTime, [Char])]) } [ _NOREP_S_ "%DPreludeCore.Text.readsPrec\"", u0, u1 ] _N_, - showsPrec = _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 22 _N_ _S_ _!_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ }, + readList = { _A_ 1 _U_ 2 _N_ _S_ _!_ _N_ _N_ }, + showList = { _A_ 1 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibTime_p.hi b/ghc/lib/haskell-1.3/LibTime_p.hi index 024af1d0b7..05f711b32f 100644 --- a/ghc/lib/haskell-1.3/LibTime_p.hi +++ b/ghc/lib/haskell-1.3/LibTime_p.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -6,9 +6,9 @@ data CalendarTime = CalendarTime Int Int Int Int Int Int Integer Int Int [Char data ClockTime {-# GHC_PRAGMA TOD Integer Integer #-} data TimeDiff = TimeDiff Int Int Int Int Int Int Integer addToClockTime :: TimeDiff -> ClockTime -> ClockTime - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: TimeDiff) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { ClockTime } [ _NOREP_S_ "addToClockTime unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} diffClockTimes :: ClockTime -> ClockTime -> TimeDiff - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: ClockTime) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { TimeDiff } [ _NOREP_S_ "diffClockTimes unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} getClockTime :: _State _RealWorld -> (Either IOError13 ClockTime, _State _RealWorld) {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} toCalendarTime :: ClockTime -> CalendarTime @@ -19,34 +19,34 @@ toUTCTime :: ClockTime -> CalendarTime {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(PPP)L)" {_A_ 4 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool)] [_CONSTM_ Eq (==) (ClockTime), _CONSTM_ Eq (/=) (ClockTime)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Eq TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool)] [_CONSTM_ Eq (==) (TimeDiff), _CONSTM_ Eq (/=) (TimeDiff)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Ord ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ClockTime}}, (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> _CMP_TAG)] [_DFUN_ Eq (ClockTime), _CONSTM_ Ord (<) (ClockTime), _CONSTM_ Ord (<=) (ClockTime), _CONSTM_ Ord (>=) (ClockTime), _CONSTM_ Ord (>) (ClockTime), _CONSTM_ Ord max (ClockTime), _CONSTM_ Ord min (ClockTime), _CONSTM_ Ord _tagCmp (ClockTime)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - max = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - min = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + max = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + min = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Ord TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq TimeDiff}}, (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> _CMP_TAG)] [_DFUN_ Eq (TimeDiff), _CONSTM_ Ord (<) (TimeDiff), _CONSTM_ Ord (<=) (TimeDiff), _CONSTM_ Ord (>=) (TimeDiff), _CONSTM_ Ord (>) (TimeDiff), _CONSTM_ Ord max (TimeDiff), _CONSTM_ Ord min (TimeDiff), _CONSTM_ Ord _tagCmp (TimeDiff)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Text ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ClockTime, [Char])]), (Int -> ClockTime -> [Char] -> [Char]), ([Char] -> [([ClockTime], [Char])]), ([ClockTime] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ClockTime), _CONSTM_ Text showsPrec (ClockTime), _CONSTM_ Text readList (ClockTime), _CONSTM_ Text showList (ClockTime)] _N_ - readsPrec = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Int) (u1 :: [Char]) -> _APP_ _TYAPP_ patError# { (Int -> [Char] -> [(ClockTime, [Char])]) } [ _NOREP_S_ "%DPreludeCore.Text.readsPrec\"", u0, u1 ] _N_, - showsPrec = _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 22 _N_ _S_ _!_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ }, + readList = { _A_ 1 _U_ 2 _N_ _S_ _!_ _N_ _N_ }, + showList = { _A_ 1 _U_ 12 _N_ _N_ _N_ _N_ } #-} diff --git a/ghc/lib/haskell-1.3/LibTime_t.hi b/ghc/lib/haskell-1.3/LibTime_t.hi index 024af1d0b7..05f711b32f 100644 --- a/ghc/lib/haskell-1.3/LibTime_t.hi +++ b/ghc/lib/haskell-1.3/LibTime_t.hi @@ -1,4 +1,4 @@ -{-# GHC_PRAGMA INTERFACE VERSION 5 #-} +{-# GHC_PRAGMA INTERFACE VERSION 6 #-} interface LibTime where import PreludeIOError(IOError13) import PreludeMonadicIO(Either) @@ -6,9 +6,9 @@ data CalendarTime = CalendarTime Int Int Int Int Int Int Integer Int Int [Char data ClockTime {-# GHC_PRAGMA TOD Integer Integer #-} data TimeDiff = TimeDiff Int Int Int Int Int Int Integer addToClockTime :: TimeDiff -> ClockTime -> ClockTime - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: TimeDiff) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { ClockTime } [ _NOREP_S_ "addToClockTime unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} diffClockTimes :: ClockTime -> ClockTime -> TimeDiff - {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 2 \ (u0 :: ClockTime) (u1 :: ClockTime) -> _APP_ _TYAPP_ error { TimeDiff } [ _NOREP_S_ "diffClockTimes unimplemented" ] _N_ #-} + {-# GHC_PRAGMA _A_ 2 _U_ 00 _N_ _S_ _!_ _N_ _N_ #-} getClockTime :: _State _RealWorld -> (Either IOError13 ClockTime, _State _RealWorld) {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(P)" {_A_ 1 _U_ 2 _N_ _N_ _N_ _N_} _N_ _N_ #-} toCalendarTime :: ClockTime -> CalendarTime @@ -19,34 +19,34 @@ toUTCTime :: ClockTime -> CalendarTime {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "U(U(PPP)L)" {_A_ 4 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ #-} instance Eq ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool)] [_CONSTM_ Eq (==) (ClockTime), _CONSTM_ Eq (/=) (ClockTime)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _F_ _IF_ARGS_ 0 5 XXXCC 9 \ (u0 :: Int#) (u1 :: Int#) (u2 :: ByteArray#) (u3 :: Integer) (u4 :: ClockTime) -> case u4 of { _ALG_ _ORIG_ LibTime TOD (u5 :: Integer) (u6 :: Integer) -> case u5 of { _ALG_ J# (u7 :: Int#) (u8 :: Int#) (u9 :: ByteArray#) -> case _#_ cmpInteger# [] [u0, u1, u2, u7, u8, u9] of { _PRIM_ 0# -> case u3 of { _ALG_ J# (ua :: Int#) (ub :: Int#) (uc :: ByteArray#) -> case u6 of { _ALG_ J# (ud :: Int#) (ue :: Int#) (uf :: ByteArray#) -> case _#_ cmpInteger# [] [ua, ub, uc, ud, ue, uf] of { _PRIM_ 0# -> _!_ True [] []; (ug :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ }; (uh :: Int#) -> _!_ False [] [] }; _NO_DEFLT_ }; _NO_DEFLT_ } _N_} _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Eq TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 3 _!_ _TUP_2 [(TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool)] [_CONSTM_ Eq (==) (TimeDiff), _CONSTM_ Eq (/=) (TimeDiff)] _N_ - (==) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (/=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (==) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (/=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Ord ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq ClockTime}}, (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> Bool), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> ClockTime), (ClockTime -> ClockTime -> _CMP_TAG)] [_DFUN_ Eq (ClockTime), _CONSTM_ Ord (<) (ClockTime), _CONSTM_ Ord (<=) (ClockTime), _CONSTM_ Ord (>=) (ClockTime), _CONSTM_ Ord (>) (ClockTime), _CONSTM_ Ord max (ClockTime), _CONSTM_ Ord min (ClockTime), _CONSTM_ Ord _tagCmp (ClockTime)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_, - max = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - min = _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ }, + max = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + min = { _A_ 2 _U_ 12 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22222 _N_ _N_ _N_ _N_} _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(PPP)L)U(U(PPP)L)" {_A_ 5 _U_ 22211 _N_ _N_ _N_ _N_} _N_ _N_ } #-} instance Ord TimeDiff {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 9 _!_ _TUP_8 [{{Eq TimeDiff}}, (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> Bool), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> TimeDiff), (TimeDiff -> TimeDiff -> _CMP_TAG)] [_DFUN_ Eq (TimeDiff), _CONSTM_ Ord (<) (TimeDiff), _CONSTM_ Ord (<=) (TimeDiff), _CONSTM_ Ord (>=) (TimeDiff), _CONSTM_ Ord (>) (TimeDiff), _CONSTM_ Ord max (TimeDiff), _CONSTM_ Ord min (TimeDiff), _CONSTM_ Ord _tagCmp (TimeDiff)] _N_ - (<) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (<=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>=) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - (>) = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - max = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - min = _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_, - _tagCmp = _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ #-} + (<) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (<=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>=) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + (>) = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + max = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + min = { _A_ 2 _U_ 22 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ }, + _tagCmp = { _A_ 2 _U_ 11 _N_ _S_ "U(U(P)LLLLLL)U(U(P)LLLLLL)" _N_ _N_ } #-} instance Text ClockTime {-# GHC_PRAGMA _M_ LibTime {-dfun-} _A_ 0 _N_ _N_ _N_ _F_ _IF_ARGS_ 0 0 X 5 _!_ _TUP_4 [(Int -> [Char] -> [(ClockTime, [Char])]), (Int -> ClockTime -> [Char] -> [Char]), ([Char] -> [([ClockTime], [Char])]), ([ClockTime] -> [Char] -> [Char])] [_CONSTM_ Text readsPrec (ClockTime), _CONSTM_ Text showsPrec (ClockTime), _CONSTM_ Text readList (ClockTime), _CONSTM_ Text showList (ClockTime)] _N_ - readsPrec = _A_ 2 _U_ 22 _N_ _S_ _!_ _F_ _IF_ARGS_ 0 2 XX 4 \ (u0 :: Int) (u1 :: [Char]) -> _APP_ _TYAPP_ patError# { (Int -> [Char] -> [(ClockTime, [Char])]) } [ _NOREP_S_ "%DPreludeCore.Text.readsPrec\"", u0, u1 ] _N_, - showsPrec = _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_, - readList = _A_ 0 _U_ 2 _N_ _N_ _N_ _N_, - showList = _A_ 0 _U_ 12 _N_ _N_ _N_ _N_ #-} + readsPrec = { _A_ 2 _U_ 22 _N_ _S_ _!_ _N_ _N_ }, + showsPrec = { _A_ 2 _U_ 012 _N_ _S_ "AU(U(PPP)A)" {_A_ 3 _U_ 0222 _N_ _N_ _N_ _N_} _N_ _N_ }, + readList = { _A_ 1 _U_ 2 _N_ _S_ _!_ _N_ _N_ }, + showList = { _A_ 1 _U_ 12 _N_ _N_ _N_ _N_ } #-} |