diff options
Diffstat (limited to 'Git/Command.hs')
| -rw-r--r-- | Git/Command.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/Command.hs b/Git/Command.hs index 50d4455fe..bb82d1339 100644 --- a/Git/Command.hs +++ b/Git/Command.hs @@ -79,5 +79,5 @@ pipeNullSplit params repo = reap :: IO () reap = do -- throws an exception when there are no child processes - r <- catchDefaultIO (getAnyProcessStatus False True) Nothing - maybe (return ()) (const reap) r + catchDefaultIO (getAnyProcessStatus False True) Nothing + >>= maybe noop (const reap) |