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

more RawFilePath conversion

Browse source 
Added a RawFilePath createDirectory and kept making stuff build.

Up to 296/645

This commit was sponsored by Mark Reidenbach on Patreon.
This commit is contained in:
Joey Hess 2020-10-28 17:25:59 -04:00
parent b8bd2e45e3
commit 8d66f7ba0f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
18 changed files with 95 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Annex/ChangedRefs.hs
View file

@ -25,6 +25,7 @@ import Control.Concurrent
import Control.Concurrent.STM
import Control.Concurrent.STM.TBMChan
import qualified Data.ByteString as S
import qualified System.FilePath.ByteString as P
newtype ChangedRefs = ChangedRefs [Git.Ref]
deriving (Show)
@ -77,8 +78,8 @@ watchChangedRefs = do
chan <- liftIO $ newTBMChanIO 100
g <- gitRepo
let gittop = fromRawFilePath (Git.localGitDir g)
let refdir = gittop </> "refs"
let gittop = Git.localGitDir g
let refdir = gittop P.</> "refs"
liftIO $ createDirectoryUnder gittop refdir
let notifyhook = Just $ notifyHook chan