add searchPathContents
And rename related functions for consistency.
This commit is contained in:
parent
aec2cf0abe
commit
1b63132ca3
18 changed files with 60 additions and 49 deletions
|
@ -134,7 +134,7 @@ openFileBrowser = do
|
|||
let p = proc cmd [path]
|
||||
#endif
|
||||
#endif
|
||||
ifM (liftIO $ inPath cmd)
|
||||
ifM (liftIO $ inSearchPath cmd)
|
||||
( do
|
||||
let run = void $ liftIO $ forkIO $ do
|
||||
withCreateProcess p $ \_ _ _ pid -> void $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue