diff options
Diffstat (limited to 'System')
| -rw-r--r-- | System/Posix/User.hsc | 4 |
1 files changed, 4 insertions, 0 deletions
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) |