diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-03 16:57:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-03 16:57:21 -0400 |
| commit | e621a2feac9734b90df74df16e6908f249f76304 (patch) | |
| tree | ec4ecf27281a507fa9bd745363e456b1d0154a26 /Utility/Lsof.hs | |
| parent | eb932d259c605cf58fda4a61d051c469ef4531bf (diff) | |
watcher: Detect at startup time when there is a stale .git/lock, and remove it so it does not interfere with the automatic commits of changed files.
Diffstat (limited to 'Utility/Lsof.hs')
| -rw-r--r-- | Utility/Lsof.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Lsof.hs b/Utility/Lsof.hs index 6d6b353f2..63009f723 100644 --- a/Utility/Lsof.hs +++ b/Utility/Lsof.hs @@ -26,8 +26,8 @@ data ProcessInfo = ProcessInfo ProcessID CmdLine {- lsof is not in PATH on all systems, so SysConfig 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. -} -setupLsof :: IO () -setupLsof = do +setup :: IO () +setup = do let cmd = fromMaybe "lsof" SysConfig.lsof when (isAbsolute cmd) $ do path <- getSearchPath |