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
|
@ -97,7 +97,7 @@ searchCmd success failure cmdsparams = search cmdsparams
|
|||
- the command. -}
|
||||
findCmdPath :: ConfigKey -> String -> Test
|
||||
findCmdPath k command = do
|
||||
ifM (inPath command)
|
||||
ifM (inSearchPath command)
|
||||
( return $ Config k $ MaybeStringConfig $ Just command
|
||||
, do
|
||||
r <- getM find ["/usr/sbin", "/sbin", "/usr/local/sbin"]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue