From 20f1f4a35b77f9a512af99e275a8c926a08fad09 Mon Sep 17 00:00:00 2001 From: John Goerzen Date: Tue, 29 Aug 2006 18:55:36 +0000 Subject: Add missing field gr_passwd to GroupEntry --- System/Posix/User.hsc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'System/Posix/User.hsc') diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index c13d7bd..cfa0879 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -146,6 +146,7 @@ getEffectiveUserName = do data GroupEntry = GroupEntry { groupName :: String, + groupPassword :: String, groupID :: GroupID, groupMembers :: [String] } @@ -209,10 +210,11 @@ grBufSize = 2048 -- just assume some value (1024 is too small on OpenBSD) unpackGroupEntry :: Ptr CGroup -> IO GroupEntry unpackGroupEntry ptr = do name <- (#peek struct group, gr_name) ptr >>= peekCString + passwd <- (#peek struct group, gr_passwd) ptr >>= peekCString gid <- (#peek struct group, gr_gid) ptr mem <- (#peek struct group, gr_mem) ptr members <- peekArray0 nullPtr mem >>= mapM peekCString - return (GroupEntry name gid members) + return (GroupEntry name passwd gid members) -- ----------------------------------------------------------------------------- -- The user database (pwd.h) -- cgit v1.2.3