diff options
| author | sof <unknown> | 1998-04-30 20:01:45 +0000 |
|---|---|---|
| committer | sof <unknown> | 1998-04-30 20:01:45 +0000 |
| commit | 779a589bdd57cc736d65b6c66f4368a893c86d24 (patch) | |
| tree | 78d472dfb62253d6de23a88fec1f730169e602de /ghc/lib/posix | |
| parent | 07c313084f1199a55e6b8ff89e45a69bbec1132d (diff) | |
| download | haskell-779a589bdd57cc736d65b6c66f4368a893c86d24.tar.gz | |
[project @ 1998-04-30 20:01:45 by sof]
New function: fdToInt
Diffstat (limited to 'ghc/lib/posix')
| -rw-r--r-- | ghc/lib/posix/PosixUtil.lhs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ghc/lib/posix/PosixUtil.lhs b/ghc/lib/posix/PosixUtil.lhs index 047b9bce0a..2b3c0d335d 100644 --- a/ghc/lib/posix/PosixUtil.lhs +++ b/ghc/lib/posix/PosixUtil.lhs @@ -43,6 +43,9 @@ instance Eq Fd where -- use with care. intToFd :: Int -> Fd intToFd (I# fd#) = FD# fd# + +fdToInt :: Fd -> Int +fdToInt (FD# x#) = I# x# \end{code} Now some local functions that shouldn't go outside this library. |