From 625b9f86ff3ef8b9e0f7b58982268e5351b2eda2 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 30 Jan 2013 09:20:23 +0000 Subject: cope with missing pw_gecos (for Android) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Submitted by: Nathan Hüsken --- System/Posix/User.hsc | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'System') diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index a62648d..de08314 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -453,7 +453,11 @@ unpackUserEntry ptr = do passwd <- (#peek struct passwd, pw_passwd) ptr >>= peekCAString uid <- (#peek struct passwd, pw_uid) ptr gid <- (#peek struct passwd, pw_gid) ptr +#ifdef HAVE_NO_PASSWD_PW_GECOS + gecos <- return "" -- pw_gecos does not exist on android +#else gecos <- (#peek struct passwd, pw_gecos) ptr >>= peekCAString +#endif dir <- (#peek struct passwd, pw_dir) ptr >>= peekCAString shell <- (#peek struct passwd, pw_shell) ptr >>= peekCAString return (UserEntry name passwd uid gid gecos dir shell) -- cgit v1.2.3