diff options
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 8294f7b93..bce635096 100644 --- a/Git/LsTree.hs +++ b/Git/LsTree.hs @@ -37,13 +37,26 @@ lsTree t repo = map parseLsTree <$> pipeNullSplitZombie (lsTreeParams t) repo lsTreeParams :: Ref -> [CommandParam] -lsTreeParams t = [ Params "ls-tree --full-tree -z -r --", File $ fromRef t ] +lsTreeParams t = + [ Param "ls-tree" + , Param "--full-tree" + , Param "-z" + , Param "-r" + , Param "--" + , File $ fromRef t + ] {- Lists specified files in a tree. -} lsTreeFiles :: Ref -> [FilePath] -> Repo -> IO [TreeItem] lsTreeFiles t fs repo = map parseLsTree <$> pipeNullSplitStrict ps repo where - ps = [Params "ls-tree --full-tree -z --", File $ fromRef t] ++ map File fs + ps = + [ Param "ls-tree" + , Param "--full-tree" + , Param "-z" + , Param "--" + , File $ fromRef t + ] ++ map File fs {- Parses a line of ls-tree output. - (The --long format is not currently supported.) -} |