From 4aeee16da98fecffe2234123fd9654d2e4daa8f6 Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Wed, 14 Jan 2004 11:16:10 +0000
Subject: [PATCH] [project @ 2004-01-14 11:16:10 by malcolm] Unbreak for nhc98
 after recent errno changes.

---
 Foreign/C/Error.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4