1 files changed, 0 insertions, 15 deletions
diff --git a/System/Posix/IO/Common.hsc b/System/Posix/IO/Common.hsc
index eb4a721..abcd19b 100644
--- a/System/Posix/IO/Common.hsc
+++ b/System/Posix/IO/Common.hsc
@@ -79,11 +79,6 @@ import GHC.IO.Exception
 import Data.Typeable (cast)
 #endif
 
-#ifdef __HUGS__
-import Hugs.Prelude (IOException(..), IOErrorType(..))
-import qualified Hugs.IO (handleToFd, openFd)
-#endif
-
 #include "HsUnix.h"
 
 -- -----------------------------------------------------------------------------
@@ -239,16 +234,6 @@ handleToFd' h h_@Handle__{haType=_,..} = do
 fdToHandle fd = FD.fdToHandle (fromIntegral fd)
 #endif
 
-#ifdef __HUGS__
-handleToFd h = do
-  fd <- Hugs.IO.handleToFd h
-  return (fromIntegral fd)
-
-fdToHandle fd = do
-  mode <- fdGetMode (fromIntegral fd)
-  Hugs.IO.openFd (fromIntegral fd) False mode True
-#endif
-
 -- -----------------------------------------------------------------------------
 -- Fd options