diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-30 22:55:06 +0100 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2016-01-31 00:19:53 +0100 |
commit | 716eccb11f324abc120c24ce0344b7094f1aa435 (patch) | |
tree | 85630e94c6f324b1f7b3dc876062dd0dd60d6b48 /System/Posix/IO | |
parent | 4c25a0d4af899b43d557a6d2dc1b4291e5f75659 (diff) |
Drop bitrotting HUGS support
It's very unlikely the current `unix` code stands any chance of even
remotely work with Hugs...
Diffstat (limited to 'System/Posix/IO')
-rw-r--r-- | System/Posix/IO/Common.hsc | 15 |
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 |