webapp: Fix zombie xdg-open process left when opening file browser. Closes: #785498

This commit is contained in:
Joey Hess 2015-05-17 17:26:19 -04:00
parent e9172263e5
commit 6ec7c4fef4
2 changed files with 5 additions and 2 deletions

View file

@ -132,8 +132,9 @@ openFileBrowser = do
#endif
ifM (liftIO $ inPath cmd)
( do
let run = void $ liftIO $ forkIO $ void $
createProcess p
let run = void $ liftIO $ forkIO $ do
(Nothing, Nothing, Nothing, pid) <- createProcess p
void $ waitForProcess pid
run
#ifdef mingw32_HOST_OS
{- On windows, if the file browser is not