diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-09-13 13:39:48 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-09-13 13:39:48 -0400 |
commit | 6b209cd8578a4509e67dc187271f5f3a193acd97 (patch) | |
tree | 353b62e3fbe1e212e0af377722c3c3980a188826 /Utility/Misc.hs | |
parent | 1e9b95d13b4bd3461add92096fc142ef5126eab9 (diff) |
merge hlint changes from propellor
Diffstat (limited to 'Utility/Misc.hs')
-rw-r--r-- | Utility/Misc.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Misc.hs b/Utility/Misc.hs index 45d5a0639..ebb42576b 100644 --- a/Utility/Misc.hs +++ b/Utility/Misc.hs @@ -136,7 +136,7 @@ hGetSomeString h sz = do - if this reap gets there first. -} reapZombies :: IO () #ifndef mingw32_HOST_OS -reapZombies = do +reapZombies = -- throws an exception when there are no child processes catchDefaultIO Nothing (getAnyProcessStatus False True) >>= maybe (return ()) (const reapZombies) |