From: sof <unknown>
Date: Thu, 30 Apr 1998 20:01:45 +0000 (+0000)
Subject: [project @ 1998-04-30 20:01:45 by sof]
X-Git-Tag: Approx_2487_patches~741
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=779a589bdd57cc736d65b6c66f4368a893c86d24;p=ghc-hetmet.git

[project @ 1998-04-30 20:01:45 by sof]
New function: fdToInt
---

diff --git a/ghc/lib/posix/PosixUtil.lhs b/ghc/lib/posix/PosixUtil.lhs
index 047b9bc..2b3c0d3 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.