diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2024-03-19 19:47:48 +0800 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2024-03-19 19:47:48 +0800 |
| commit | 4b47032686c52de5bf2324c1b1d4151c5fd6c41b (patch) | |
| tree | 85098e25c0a4ad383f267fd59d591346d5e09a17 /Build/TestConfig.hs | |
| parent | 34f99f9355c275917ff91539bbdac60a56ad7e17 (diff) | |
| parent | 4993eab4a4507d52037ff74c67f6ca04d2401b5e (diff) | |
| download | git-repair-4b47032686c52de5bf2324c1b1d4151c5fd6c41b.tar.gz | |
Merge tag '1.20230814'
tagging package git-repair version 1.20230814
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"] |