diff options
Diffstat (limited to 'Build/TestConfig.hs')
-rw-r--r-- | Build/TestConfig.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Build/TestConfig.hs b/Build/TestConfig.hs index 2f7213f..5458612 100644 --- a/Build/TestConfig.hs +++ b/Build/TestConfig.hs @@ -7,7 +7,7 @@ module Build.TestConfig where import Utility.Path import Utility.Monad import Utility.SafeCommand -import Utility.Directory +import Utility.SystemDirectory import System.IO import System.FilePath @@ -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"] |