System.Posix.User.getAllUserEntries should call setpwent
it seems setpwent is never called, and so getAllUserEntries can only be used once. Here is a suggested fix:
--- User.hsc.old 2007-04-03 16:35:09.000000000 +0200
+++ User.hsc 2007-04-03 16:33:45.000000000 +0200
@@ -332,7 +332,10 @@
getAllUserEntries :: IO [UserEntry]
#ifdef HAVE_GETPWENT
getAllUserEntries =
- withMVar lock $ \_ -> worker []
+ withMVar lock $ \_ -> do c_setpwent
+ l <- worker []
+ c_endpwent
+ return l
where worker accum =
do resetErrno
ppw <- throwErrnoIfNullAndError "getAllUserEntries" $
@@ -344,6 +347,10 @@
foreign import ccall unsafe "getpwent"
c_getpwent :: IO (Ptr CPasswd)
+foreign import ccall unsafe "setpwent"
+ c_setpwent :: IO ()
+foreign import ccall unsafe "endpwent"
+ c_endpwent :: IO ()
#else
getAllUserEntries = error "System.Posix.User.getAllUserEntries: not supported"
#endif
Trac metadata
Trac field | Value |
---|---|
Version | 6.6 |
Type | Bug |
TypeOfFailure | OtherFailure |
Priority | normal |
Resolution | Unresolved |
Component | libraries/unix |
Test case | |
Differential revisions | |
BlockedBy | |
Related | |
Blocking | |
CC | |
Operating system | Unknown |
Architecture | Unknown |