diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2014-12-06 17:08:06 +0100 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2014-12-06 17:08:06 +0100 |
commit | 078666f4399f368e2f3dd82b5081dc1ad9b9fdc2 (patch) | |
tree | 247882ab50a9e32a659aa513751f9e16ec310207 /System/Posix/Unistd.hsc | |
parent | 558b0fb4eaa4aebc823022b3e1d560da3faad658 (diff) |
`M-x untabify` && `M-x delete-trailing-whitespace`
Diffstat (limited to 'System/Posix/Unistd.hsc')
-rw-r--r-- | System/Posix/Unistd.hsc | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/System/Posix/Unistd.hsc b/System/Posix/Unistd.hsc index db69bc2..0a13d6d 100644 --- a/System/Posix/Unistd.hsc +++ b/System/Posix/Unistd.hsc @@ -7,7 +7,7 @@ -- Module : System.Posix.Unistd -- Copyright : (c) The University of Glasgow 2002 -- License : BSD-style (see the file libraries/base/LICENSE) --- +-- -- Maintainer : libraries@haskell.org -- Stability : provisional -- Portability : non-portable (requires POSIX) @@ -29,7 +29,7 @@ module System.Posix.Unistd ( {- ToDo from unistd.h: - confstr, + confstr, lots of sysconf variables -- use Network.BSD @@ -62,11 +62,11 @@ import System.Posix.Internals data SystemID = SystemID { systemName :: String - , nodeName :: String - , release :: String - , version :: String - , machine :: String - } + , nodeName :: String + , release :: String + , version :: String + , machine :: String + } getSystemID :: IO SystemID getSystemID = do @@ -78,11 +78,11 @@ getSystemID = do ver <- peekCString ((#ptr struct utsname, version) p_sid) mach <- peekCString ((#ptr struct utsname, machine) p_sid) return (SystemID { systemName = sysN, - nodeName = node, - release = rel, - version = ver, - machine = mach - }) + nodeName = node, + release = rel, + version = ver, + machine = mach + }) foreign import ccall unsafe "uname" c_uname :: Ptr CUtsname -> IO CInt @@ -152,7 +152,7 @@ nanosleep nsecs = do allocaBytes (#const sizeof(struct timespec)) $ \pts1 -> do allocaBytes (#const sizeof(struct timespec)) $ \pts2 -> do let (tv_sec0, tv_nsec0) = nsecs `divMod` 1000000000 - let + let loop tv_sec tv_nsec = do (#poke struct timespec, tv_sec) pts1 tv_sec (#poke struct timespec, tv_nsec) pts1 tv_nsec @@ -170,7 +170,7 @@ nanosleep nsecs = do data CTimeSpec -foreign import ccall safe "__hsunix_nanosleep" +foreign import ccall safe "__hsunix_nanosleep" c_nanosleep :: Ptr CTimeSpec -> Ptr CTimeSpec -> IO CInt #endif @@ -185,14 +185,14 @@ data SysVar = ArgumentLimit | PosixVersion | HasSavedIDs | HasJobControl - -- ToDo: lots more + -- ToDo: lots more getSysVar :: SysVar -> IO Integer getSysVar v = case v of ArgumentLimit -> sysconf (#const _SC_ARG_MAX) ChildLimit -> sysconf (#const _SC_CHILD_MAX) - ClockTick -> sysconf (#const _SC_CLK_TCK) + ClockTick -> sysconf (#const _SC_CLK_TCK) GroupLimit -> sysconf (#const _SC_NGROUPS_MAX) OpenFileLimit -> sysconf (#const _SC_OPEN_MAX) PosixVersion -> sysconf (#const _SC_VERSION) @@ -200,7 +200,7 @@ getSysVar v = HasJobControl -> sysconf (#const _SC_JOB_CONTROL) sysconf :: CInt -> IO Integer -sysconf n = do +sysconf n = do r <- throwErrnoIfMinus1 "getSysVar" (c_sysconf n) return (fromIntegral r) |