From: simonmar <unknown>
Date: Thu, 11 Nov 2004 17:17:30 +0000 (+0000)
Subject: [project @ 2004-11-11 17:17:30 by simonmar]
X-Git-Tag: nhc98-1-18-release~196
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ef78e78a870add70e7550806bb46aab78bf62cbc;p=ghc-base.git

[project @ 2004-11-11 17:17:30 by simonmar]
remove unnecessary #ifdef
---

diff --git a/System/Process.hs b/System/Process.hs
index 88b41f5..a35038e 100644
--- a/System/Process.hs
+++ b/System/Process.hs
@@ -278,9 +278,7 @@ fdToHandle :: Ptr FD -> IOMode -> IO Handle
 fdToHandle pfd mode = do
   fd <- peek pfd
   openFd fd (Just Stream) 
-#if __GLASGOW_HASKELL__ >= 603
      False{-not a socket-}
-#endif
      ("fd:" ++ show fd) mode True{-binary-} False{-no truncate-}
 
 -- ----------------------------------------------------------------------------