generalize withNullHandle to MonadIO

This commit is contained in:
Joey Hess 2020-06-03 15:18:48 -04:00
parent e683207123
commit 31d53587d5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 13 additions and 8 deletions

View file

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