generalize withNullHandle to MonadIO
This commit is contained in:
parent
e683207123
commit
31d53587d5
3 changed files with 13 additions and 8 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue