Skip to content
Snippets Groups Projects
Commit c1983d5a authored by bos's avatar bos
Browse files

Fix a type defaulting warning

(And a small matter of using != instead of /= -- how embarrassing!)
parent b092e35f
No related branches found
No related tags found
No related merge requests found
...@@ -97,11 +97,11 @@ unpackRLimit :: CRLim -> ResourceLimit ...@@ -97,11 +97,11 @@ unpackRLimit :: CRLim -> ResourceLimit
unpackRLimit (#const RLIM_INFINITY) = ResourceLimitInfinity unpackRLimit (#const RLIM_INFINITY) = ResourceLimitInfinity
unpackRLimit other unpackRLimit other
#if defined(RLIM_SAVED_MAX) #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 other == (#const RLIM_SAVED_MAX) = ResourceLimitUnknown
#endif #endif
#if defined(RLIM_SAVED_CUR) #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 other == (#const RLIM_SAVED_CUR) = ResourceLimitUnknown
#endif #endif
| otherwise = ResourceLimit (fromIntegral other) | otherwise = ResourceLimit (fromIntegral other)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment