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

layout

Browse source
This commit is contained in:
Joey Hess 2011-09-29 22:31:20 -04:00
parent 4050c24d7b
commit 949ef94d5e
1 changed files with 6 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Git/LsTree.hs
View file

@ -36,11 +36,12 @@ lsTree repo t = map parseLsTree <$>
{- Parses a line of ls-tree output. {- Parses a line of ls-tree output.
- (The --long format is not currently supported.) -} - (The --long format is not currently supported.) -}
parseLsTree :: L.ByteString -> TreeItem parseLsTree :: L.ByteString -> TreeItem
parseLsTree l = TreeItem parseLsTree l = TreeItem
(fst $ head $ readOct $ L.unpack m) { mode = fst $ head $ readOct $ L.unpack m
(L.unpack t) , typeobj = L.unpack t
(L.unpack s) , sha = L.unpack s
(decodeGitFile $ L.unpack f) , file = decodeGitFile $ L.unpack f
}
where where
-- l = <mode> SP <type> SP <sha> TAB <file> -- l = <mode> SP <type> SP <sha> TAB <file>
-- All fields are fixed, so we can pull them out of -- All fields are fixed, so we can pull them out of