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

rawfilepath conversion

Browse source
This commit is contained in:
Joey Hess 2023-02-27 15:02:53 -04:00
parent cc32e31161
commit f09e299156
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Git/UpdateIndex.hs
View file

@ -99,15 +99,15 @@ updateIndexLine sha treeitemtype file = L.fromStrict $
<> "\t"
<> indexPath file
stageFile :: Sha -> TreeItemType -> FilePath -> Repo -> IO Streamer
stageFile :: Sha -> TreeItemType -> RawFilePath -> Repo -> IO Streamer
stageFile sha treeitemtype file repo = do
p <- toTopFilePath (toRawFilePath file) repo
p <- toTopFilePath file repo
return $ pureStreamer $ updateIndexLine sha treeitemtype p
{- A streamer that removes a file from the index. -}
unstageFile :: FilePath -> Repo -> IO Streamer
unstageFile :: RawFilePath -> Repo -> IO Streamer
unstageFile file repo = do
p <- toTopFilePath (toRawFilePath file) repo
p <- toTopFilePath file repo
return $ unstageFile' p
unstageFile' :: TopFilePath -> Streamer