diff options
Diffstat (limited to 'Utility/Lsof.hs')
| -rw-r--r-- | Utility/Lsof.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Utility/Lsof.hs b/Utility/Lsof.hs index e3ed709ec..ab80258b7 100644 --- a/Utility/Lsof.hs +++ b/Utility/Lsof.hs @@ -10,7 +10,7 @@ module Utility.Lsof where import Common -import Build.SysConfig as SysConfig +import BuildInfo import Utility.Env import System.Posix.Types @@ -23,12 +23,12 @@ type CmdLine = String data ProcessInfo = ProcessInfo ProcessID CmdLine deriving (Show) -{- lsof is not in PATH on all systems, so SysConfig may have the absolute +{- lsof is not in PATH on all systems, so BuildInfo may have the absolute - path where the program was found. Make sure at runtime that lsof is - available, and if it's not in PATH, adjust PATH to contain it. -} setup :: IO () setup = do - let cmd = fromMaybe "lsof" SysConfig.lsof + let cmd = fromMaybe "lsof" BuildInfo.lsof when (isAbsolute cmd) $ do path <- getSearchPath let path' = takeDirectory cmd : path |