-- -----------------------------------------------------------------------------
--- $Id: Directory.hsc,v 1.2 2001/01/12 15:48:56 simonmar Exp $
+-- $Id: Directory.hsc,v 1.3 2001/01/12 17:45:30 qrczak Exp $
--
-- (c) The University of Glasgow, 1994-2000
--
where
loop :: Ptr CDir -> IO [String]
loop dir = do
+ resetErrno
p <- readdir dir
if (p /= nullPtr)
then do entry <- peekCString ((#ptr struct dirent,d_name) p)
% -----------------------------------------------------------------------------
-% $Id: PrelCError.lhs,v 1.1 2001/01/11 17:25:57 simonmar Exp $
+% $Id: PrelCError.lhs,v 1.2 2001/01/12 17:45:30 qrczak Exp $
%
% (c) The FFI task force, 2000
%
-- access to the current thread's "errno" value
--
getErrno, -- :: IO Errno
+ resetErrno, -- :: IO ()
-- conversion of an "errno" value into IO error
--
getErrno = liftM Errno (peek _errno)
+-- set the current thread's "errno" value to 0
+--
+resetErrno :: IO ()
+resetErrno = poke _errno 0
+
+
-- throw current "errno" value
-- ---------------------------