add lsof build deps

Check for it in configure; and add a --force option for people without it
who want to live dangerously.

1 files changed, 6 insertions, 1 deletions

diff --git a/Utility/Lsof.hs b/Utility/Lsof.hs
index 25581cc23..0061dfe57 100644
--- a/Utility/Lsof.hs
+++ b/Utility/Lsof.hs
@@ -26,11 +26,16 @@ data ProcessInfo = ProcessInfo ProcessID CmdLine
 queryDir :: FilePath -> IO [(FilePath, LsofOpenMode, ProcessInfo)]
 queryDir path = query ["+d", path]
 
+{- Runs lsof with some parameters.
+ -
+ - Ignores nonzero exit code; lsof returns that when no files are open.
+ -
+ - Note: If lsof is not available, this always returns [] !
+ -}
 query :: [String] -> IO [(FilePath, LsofOpenMode, ProcessInfo)]
 query opts = do
 	(pid, s) <- pipeFrom "lsof" ("-F0can" : opts)
 	let !r = parse s
-	-- ignore nonzero exit code; lsof returns that when no files are open
 	void $ getProcessStatus True False $ processID pid
 	return r