add searchPathContents
And rename related functions for consistency.
This commit is contained in:
parent
aec2cf0abe
commit
1b63132ca3
18 changed files with 60 additions and 49 deletions
|
@ -49,7 +49,7 @@ import Control.Concurrent
|
|||
{- This thread makes git commits at appropriate times. -}
|
||||
commitThread :: NamedThread
|
||||
commitThread = namedThread "Committer" $ do
|
||||
havelsof <- liftIO $ inPath "lsof"
|
||||
havelsof <- liftIO $ inSearchPath "lsof"
|
||||
delayadd <- liftAnnex $
|
||||
fmap Seconds . annexDelayAdd <$> Annex.getGitConfig
|
||||
msg <- liftAnnex Command.Sync.commitMsg
|
||||
|
|
|
@ -58,7 +58,7 @@ checkCanWatch
|
|||
| canWatch = do
|
||||
#ifndef mingw32_HOST_OS
|
||||
liftIO Lsof.setup
|
||||
unlessM (liftIO (inPath "lsof") <||> Annex.getState Annex.force)
|
||||
unlessM (liftIO (inSearchPath "lsof") <||> Annex.getState Annex.force)
|
||||
needLsof
|
||||
#else
|
||||
noop
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue