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
|
@ -46,11 +46,11 @@ findShellCommand f = do
|
|||
[] -> defcmd
|
||||
(c:ps) -> do
|
||||
let ps' = map Param ps ++ [File f]
|
||||
-- If the command is not inPath,
|
||||
-- If the command is not inSearchPath,
|
||||
-- take the base of it, and run eg "sh"
|
||||
-- which in some cases on windows will work
|
||||
-- despite it not being inPath.
|
||||
ok <- inPath c
|
||||
-- despite it not being inSearchPath.
|
||||
ok <- inSearchPath c
|
||||
return (if ok then c else takeFileName c, ps')
|
||||
_ -> defcmd
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue