completed the createDirectoryIfMissing conversion

Remaining calls in the assistant and Annex.Ssh have been audited and are ok.
This commit is contained in:
Joey Hess 2020-03-06 12:52:20 -04:00
parent 7f992ef59c
commit 093fde5abd
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 23 additions and 10 deletions

View file

@ -15,6 +15,7 @@ import Logs.Transfer
import Utility.DirWatcher
import Utility.DirWatcher.Types
import qualified Remote
import Annex.Perms
import Control.Concurrent
import qualified Data.Map as M
@ -24,7 +25,7 @@ import qualified Data.Map as M
transferWatcherThread :: NamedThread
transferWatcherThread = namedThread "TransferWatcher" $ do
dir <- liftAnnex $ gitAnnexTransferDir <$> gitRepo
liftIO $ createDirectoryIfMissing True dir
liftAnnex $ createAnnexDirectory dir
let hook a = Just <$> asIO2 (runHandler a)
addhook <- hook onAdd
delhook <- hook onDel