mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

some easy createDirectoryUnder conversions

Browse source
This commit is contained in:
Joey Hess 2020-03-05 14:56:47 -04:00
parent ebbc5004fa
commit 6d58ca94d6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
12 changed files with 44 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Annex/ChangedRefs.hs
View file

@ -76,8 +76,9 @@ watchChangedRefs = do
chan <- liftIO $ newTBMChanIO 100
g <- gitRepo
let refdir = fromRawFilePath (Git.localGitDir g) </> "refs"
liftIO $ createDirectoryIfMissing True refdir
let gittop = fromRawFilePath (Git.localGitDir g)
let refdir = gittop </> "refs"
liftIO $ createDirectoryUnder gittop refdir
let notifyhook = Just $ notifyHook chan
let hooks = mkWatchHooks