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

fix lsTreeFiles to use --full-tree

Browse source 
This makes it show the full tree, not just the current directory,
and enables --full-name, which yields TopFilePaths.
This commit is contained in:
Joey Hess 2013-10-18 15:50:26 -04:00
parent 88c172bbee
commit edbf177628
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Git/LsTree.hs
View file

@ -30,7 +30,8 @@ data TreeItem = TreeItem
, file :: TopFilePath , file :: TopFilePath
} deriving Show } deriving Show
{- Lists the complete contents of a tree, with lazy output. -} {- Lists the complete contents of a tree, recursing into sub-trees,
- with lazy output. -}
lsTree :: Ref -> Repo -> IO [TreeItem] lsTree :: Ref -> Repo -> IO [TreeItem]
lsTree t repo = map parseLsTree <$> pipeNullSplitZombie ps repo lsTree t repo = map parseLsTree <$> pipeNullSplitZombie ps repo
where where
@ -40,7 +41,7 @@ lsTree t repo = map parseLsTree <$> pipeNullSplitZombie ps repo
lsTreeFiles :: Ref -> [FilePath] -> Repo -> IO [TreeItem] lsTreeFiles :: Ref -> [FilePath] -> Repo -> IO [TreeItem]
lsTreeFiles t fs repo = map parseLsTree <$> pipeNullSplitStrict ps repo lsTreeFiles t fs repo = map parseLsTree <$> pipeNullSplitStrict ps repo
where where
ps = [Params "ls-tree -z --", File $ show t] ++ map File fs ps = [Params "ls-tree --full-tree -z --", File $ show t] ++ map File fs
{- Parses a line of ls-tree output. {- Parses a line of ls-tree output.
- (The --long format is not currently supported.) -} - (The --long format is not currently supported.) -}