diff options
| author | Joey Hess <joey@kitenet.net> | 2014-02-24 19:40:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-24 19:40:14 -0400 |
| commit | 878e7471fa09dcc36b478e1ac1fd305d5a90b7bf (patch) | |
| tree | d552b8faa43078e3dfe1f8b10063ec566eced4e2 /Git/LsTree.hs | |
| parent | d80c547a7d1261f158148ca85e627cc2ecb005f2 (diff) | |
| download | git-repair-878e7471fa09dcc36b478e1ac1fd305d5a90b7bf.tar.gz | |
merge from git-annex
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 956f9f5..6d3ca48 100644 --- a/Git/LsTree.hs +++ b/Git/LsTree.hs @@ -38,13 +38,13 @@ lsTree t repo = map parseLsTree <$> pipeNullSplitZombie (lsTreeParams t) repo lsTreeParams :: Ref -> [CommandParam] -lsTreeParams t = [ Params "ls-tree --full-tree -z -r --", File $ show t ] +lsTreeParams t = [ Params "ls-tree --full-tree -z -r --", 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 $ show t] ++ map File fs + ps = [Params "ls-tree --full-tree -z --", File $ fromRef t] ++ map File fs {- Parses a line of ls-tree output. - (The --long format is not currently supported.) -} |