From: malcolm <unknown>
Date: Wed, 14 Jan 2004 11:16:10 +0000 (+0000)
Subject: [project @ 2004-01-14 11:16:10 by malcolm]
X-Git-Tag: nhc98-1-18-release~408
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4aeee16da98fecffe2234123fd9654d2e4daa8f6;p=ghc-base.git

[project @ 2004-01-14 11:16:10 by malcolm]
Unbreak for nhc98 after recent errno changes.
---

diff --git a/Foreign/C/Error.hs b/Foreign/C/Error.hs
index dc37966..d7da52d 100644
--- a/Foreign/C/Error.hs
+++ b/Foreign/C/Error.hs
@@ -278,7 +278,7 @@ getErrno :: IO Errno
 -- thread gets its own copy.
 #ifdef __NHC__
 getErrno = do e <- peek _errno; return (Errno e)
-foreign import ccall unsafe "errno.h &errno" _errno :: IO (Ptr CInt)
+foreign import ccall unsafe "errno.h &errno" _errno :: Ptr CInt
 #else
 getErrno = do e <- get_errno; return (Errno e)
 foreign import ccall unsafe "HsBase.h __hscore_get_errno" get_errno :: IO CInt