diff options
author | Bryan O'Sullivan <bos@serpentine.com> | 2013-10-12 16:51:14 -0700 |
---|---|---|
committer | Bryan O'Sullivan <bos@serpentine.com> | 2013-10-12 16:52:45 -0700 |
commit | c1983d5ad4a0c4c5e7ae7e3e7108e42df374dd70 (patch) | |
tree | 8d3b06d3fef3f51b4721c9b9f34ed39e35a522ae /System/Posix/Resource.hsc | |
parent | b092e35f4c99bfab12247e93c7fa478de638276a (diff) |
Fix a type defaulting warning
(And a small matter of using != instead of /= -- how embarrassing!)
Diffstat (limited to 'System/Posix/Resource.hsc')
-rw-r--r-- | System/Posix/Resource.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/System/Posix/Resource.hsc b/System/Posix/Resource.hsc index 58cff6f..23d2ad4 100644 --- a/System/Posix/Resource.hsc +++ b/System/Posix/Resource.hsc @@ -97,11 +97,11 @@ unpackRLimit :: CRLim -> ResourceLimit unpackRLimit (#const RLIM_INFINITY) = ResourceLimitInfinity unpackRLimit other #if defined(RLIM_SAVED_MAX) - | (#const RLIM_SAVED_MAX) != (#const RLIM_INFINITY) && + | ((#const RLIM_SAVED_MAX) :: CRLim) /= (#const RLIM_INFINITY) && other == (#const RLIM_SAVED_MAX) = ResourceLimitUnknown #endif #if defined(RLIM_SAVED_CUR) - | (#const RLIM_SAVED_CUR) != (#const RLIM_INFINITY) && + | ((#const RLIM_SAVED_CUR) :: CRLim) /= (#const RLIM_INFINITY) && other == (#const RLIM_SAVED_CUR) = ResourceLimitUnknown #endif | otherwise = ResourceLimit (fromIntegral other) |