From 949ef94d5e5583e55d6ba9797cf71177b252173d Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 29 Sep 2011 22:31:20 -0400
Subject: [PATCH] layout

---
 Git/LsTree.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/Git/LsTree.hs b/Git/LsTree.hs
index 9d2fe7a373..e0aa5a4431 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