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

add mktree interface

Browse source
This commit is contained in:
Joey Hess 2016-02-23 16:36:08 -04:00
parent a5bf674bec
commit ae76cfde7d
Failed to extract signature
2 changed files with 112 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Git/LsTree.hs
View file

@ -8,9 +8,10 @@
module Git.LsTree (
TreeItem(..),
lsTree,
lsTree',
lsTreeParams,
lsTreeFiles,
parseLsTree
parseLsTree,
) where
import Common
@ -33,8 +34,11 @@ data TreeItem = TreeItem
{- Lists the complete contents of a tree, recursing into sub-trees,
- with lazy output. -}
lsTree :: Ref -> Repo -> IO ([TreeItem], IO Bool)
lsTree t repo = do
(l, cleanup) <- pipeNullSplit (lsTreeParams t []) repo
lsTree = lsTree' []
lsTree' :: [CommandParam] -> Ref -> Repo -> IO ([TreeItem], IO Bool)
lsTree' ps t repo = do
(l, cleanup) <- pipeNullSplit (lsTreeParams t ps) repo
return (map parseLsTree l, cleanup)
lsTreeParams :: Ref -> [CommandParam] -> [CommandParam]