[project @ 2004-11-11 17:17:30 by simonmar]
authorsimonmar <unknown>
Thu, 11 Nov 2004 17:17:30 +0000 (17:17 +0000)
committersimonmar <unknown>
Thu, 11 Nov 2004 17:17:30 +0000 (17:17 +0000)
remove unnecessary #ifdef

System/Process.hs

index 88b41f5..a35038e 100644 (file)
@@ -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-}
 
 -- ----------------------------------------------------------------------------