diff options
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 9d2fe7a37..e0aa5a443 100644 --- a/Git/LsTree.hs +++ b/Git/LsTree.hs @@ -36,11 +36,12 @@ lsTree repo t = map parseLsTree <$> {- Parses a line of ls-tree output. - (The --long format is not currently supported.) -} parseLsTree :: L.ByteString -> TreeItem -parseLsTree l = TreeItem - (fst $ head $ readOct $ L.unpack m) - (L.unpack t) - (L.unpack s) - (decodeGitFile $ L.unpack f) +parseLsTree l = TreeItem + { mode = fst $ head $ readOct $ L.unpack m + , typeobj = L.unpack t + , sha = L.unpack s + , file = decodeGitFile $ L.unpack f + } where -- l = <mode> SP <type> SP <sha> TAB <file> -- All fields are fixed, so we can pull them out of |