buildImportTrees is fully working

buildImportCommit not yet tested
This commit is contained in:
Joey Hess 2019-02-22 12:41:17 -04:00
parent 7af55de83c
commit bab6c570b0
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 104 additions and 39 deletions

View file

@ -42,12 +42,12 @@ lsTree :: LsTreeMode -> Ref -> Repo -> IO ([TreeItem], IO Bool)
lsTree = lsTree' []
lsTree' :: [CommandParam] -> LsTreeMode -> Ref -> Repo -> IO ([TreeItem], IO Bool)
lsTree' ps mode t repo = do
(l, cleanup) <- pipeNullSplit (lsTreeParams mode t ps) repo
lsTree' ps lsmode t repo = do
(l, cleanup) <- pipeNullSplit (lsTreeParams lsmode t ps) repo
return (map parseLsTree l, cleanup)
lsTreeParams :: LsTreeMode -> Ref -> [CommandParam] -> [CommandParam]
lsTreeParams mode r ps =
lsTreeParams lsmode r ps =
[ Param "ls-tree"
, Param "--full-tree"
, Param "-z"
@ -56,7 +56,7 @@ lsTreeParams mode r ps =
, File $ fromRef r
]
where
recursiveparams = case mode of
recursiveparams = case lsmode of
LsTreeRecursive -> [ Param "-r" ]
LsTreeNonRecursive -> []