From: mthomas <unknown>
Date: Thu, 17 Apr 2003 12:58:14 +0000 (+0000)
Subject: [project @ 2003-04-17 12:58:14 by mthomas]
X-Git-Tag: nhc98-1-18-release~684
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fa636af6f4a3554c5ba3eb46f07525e73b470172;p=haskell-directory.git

[project @ 2003-04-17 12:58:14 by mthomas]
Fix "System/Posix/Internals.hs:273: Malformed entity string".
---

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index 7ac142f..47362ed 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -267,13 +267,13 @@ getEcho fd = do
    then ioException (ioe_unk_error "getEcho" "failed to get echoing")
    else return (r == 1)
 
-foreign import ccall unsafe "HsBase.h consUtils.h set_console_buffering__"
+foreign import ccall unsafe "consUtils.h set_console_buffering__"
    set_console_buffering :: CInt -> CInt -> IO CInt
 
-foreign import ccall unsafe "HsBase.h consUtils.h set_console_echo__"
+foreign import ccall unsafe "consUtils.h set_console_echo__"
    set_console_echo :: CInt -> CInt -> IO CInt
 
-foreign import ccall unsafe "HsBase.h consUtils.h get_console_echo__"
+foreign import ccall unsafe "consUtils.h get_console_echo__"
    get_console_echo :: CInt -> IO CInt
 
 #endif