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

git diff-tree interface

Browse source
This commit is contained in:
Joey Hess 2012-12-10 14:36:57 -04:00
parent 6dfb1cd9a0
commit 715c67a3e5
2 changed files with 66 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Git/LsTree.hs
View file

@ -19,6 +19,7 @@ import System.Posix.Types
import Common
import Git
import Git.Command
import Git.Sha
import qualified Git.Filename
data TreeItem = TreeItem
@ -53,5 +54,5 @@ parseLsTree l = TreeItem
-- specific positions in the line.
(m, past_m) = splitAt 7 l
(t, past_t) = splitAt 4 past_m
(s, past_s) = splitAt 40 $ Prelude.tail past_t
(s, past_s) = splitAt shaSize $ Prelude.tail past_t
f = Prelude.tail past_s