convert TopFilePath to use RawFilePath
Adds a dependency on filepath-bytestring, an as yet unreleased fork of filepath that operates on RawFilePath. Git.Repo also changed to use RawFilePath for the path to the repo. This does eliminate some RawFilePath -> FilePath -> RawFilePath conversions. And filepath-bytestring's </> is probably faster. But I don't expect a major performance improvement from this. This is mostly groundwork for making Annex.Location use RawFilePath, which will allow for a conversion-free pipleline.
This commit is contained in:
parent
a7004375ec
commit
bdec7fed9c
97 changed files with 323 additions and 271 deletions
|
@ -57,13 +57,13 @@ parseStatusZ = go []
|
|||
in go (v : c) xs'
|
||||
_ -> go c xs
|
||||
|
||||
cparse 'M' f _ = (Just (Modified (asTopFilePath f)), Nothing)
|
||||
cparse 'A' f _ = (Just (Added (asTopFilePath f)), Nothing)
|
||||
cparse 'D' f _ = (Just (Deleted (asTopFilePath f)), Nothing)
|
||||
cparse 'T' f _ = (Just (TypeChanged (asTopFilePath f)), Nothing)
|
||||
cparse '?' f _ = (Just (Untracked (asTopFilePath f)), Nothing)
|
||||
cparse 'M' f _ = (Just (Modified (asTopFilePath (toRawFilePath f))), Nothing)
|
||||
cparse 'A' f _ = (Just (Added (asTopFilePath (toRawFilePath f))), Nothing)
|
||||
cparse 'D' f _ = (Just (Deleted (asTopFilePath (toRawFilePath f))), Nothing)
|
||||
cparse 'T' f _ = (Just (TypeChanged (asTopFilePath (toRawFilePath f))), Nothing)
|
||||
cparse '?' f _ = (Just (Untracked (asTopFilePath (toRawFilePath f))), Nothing)
|
||||
cparse 'R' f (oldf:xs) =
|
||||
(Just (Renamed (asTopFilePath oldf) (asTopFilePath f)), Just xs)
|
||||
(Just (Renamed (asTopFilePath (toRawFilePath oldf)) (asTopFilePath (toRawFilePath f))), Just xs)
|
||||
cparse _ _ _ = (Nothing, Nothing)
|
||||
|
||||
getStatus :: [CommandParam] -> [FilePath] -> Repo -> IO ([StagedUnstaged Status], IO Bool)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue