diff options
| author |  John Goerzen <jgoerzen@complete.org> | 2006-08-29 18:53:00 +0000 |
|---|---|---|
| committer | John Goerzen <jgoerzen@complete.org> | 2006-08-29 18:53:00 +0000 |
| commit | 9d18a98eeea793efdb4b5869e25259349cc82dd8 (patch) | |
| tree | ec5f3b41bf5dbcdbb0a9ba263dea80a1117cc4d1 /System/Posix/User.hsc | |
| parent | cf446bc47400b5615b9816b27eb76dc66919aa2c (diff) | |
Whitespace changes for better alignment in unpackUserEntry
Diffstat (limited to 'System/Posix/User.hsc')
| -rw-r--r-- | System/Posix/User.hsc | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/System/Posix/User.hsc b/System/Posix/User.hsc index 82334d8..c13d7bd 100644 --- a/System/Posix/User.hsc +++ b/System/Posix/User.hsc @@ -317,13 +317,13 @@ foreign import ccall unsafe "sysconf" unpackUserEntry :: Ptr CPasswd -> IO UserEntry unpackUserEntry ptr = do - name <- (#peek struct passwd, pw_name) ptr >>= peekCString + name <- (#peek struct passwd, pw_name) ptr >>= peekCString passwd <- (#peek struct passwd, pw_passwd) ptr >>= peekCString - uid <- (#peek struct passwd, pw_uid) ptr - gid <- (#peek struct passwd, pw_gid) ptr - gecos <- (#peek struct passwd, pw_gecos) ptr >>= peekCString - dir <- (#peek struct passwd, pw_dir) ptr >>= peekCString - shell <- (#peek struct passwd, pw_shell) ptr >>= peekCString + uid <- (#peek struct passwd, pw_uid) ptr + gid <- (#peek struct passwd, pw_gid) ptr + gecos <- (#peek struct passwd, pw_gecos) ptr >>= peekCString + dir <- (#peek struct passwd, pw_dir) ptr >>= peekCString + shell <- (#peek struct passwd, pw_shell) ptr >>= peekCString return (UserEntry name passwd uid gid gecos dir shell) -- Used when calling re-entrant system calls that signal their 'errno' |