From: ross <unknown>
Date: Thu, 13 Jan 2005 11:15:17 +0000 (+0000)
Subject: [project @ 2005-01-13 11:15:17 by ross]
X-Git-Tag: nhc98-1-18-release~117
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5a9cb2b0866a8145a7d0034454d0fc1109bcbc4a;p=haskell-directory.git

[project @ 2005-01-13 11:15:17 by ross]
use ioError instead of the GHC-specific ioException
---

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 25fe8c7..28b85f1 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -46,7 +46,6 @@ import System.IO
 import Hugs.Prelude (IOException(..), IOErrorType(..))
 
 {-# CFILES cbits/PrelIOUtils.c cbits/dirUtils.c cbits/consUtils.c #-}
-ioException = ioError
 #endif
 
 -- ---------------------------------------------------------------------------
@@ -250,7 +249,7 @@ setCooked :: Int -> Bool -> IO ()
 setCooked fd cooked = do
   x <- set_console_buffering (fromIntegral fd) (if cooked then 1 else 0)
   if (x /= 0)
-   then ioException (ioe_unk_error "setCooked" "failed to set buffering")
+   then ioError (ioe_unk_error "setCooked" "failed to set buffering")
    else return ()
 
 ioe_unk_error loc msg 
@@ -262,14 +261,14 @@ setEcho :: Int -> Bool -> IO ()
 setEcho fd on = do
   x <- set_console_echo (fromIntegral fd) (if on then 1 else 0)
   if (x /= 0)
-   then ioException (ioe_unk_error "setEcho" "failed to set echoing")
+   then ioError (ioe_unk_error "setEcho" "failed to set echoing")
    else return ()
 
 getEcho :: Int -> IO Bool
 getEcho fd = do
   r <- get_console_echo (fromIntegral fd)
   if (r == (-1))
-   then ioException (ioe_unk_error "getEcho" "failed to get echoing")
+   then ioError (ioe_unk_error "getEcho" "failed to get echoing")
    else return (r == 1)
 
 foreign import ccall unsafe "consUtils.h set_console_buffering__"