use TopFilePath for DiffTree and LsTree

Git/DiffTree.hs

@@ -20,6 +20,7 @@ import Common
 import Git
 import Git.Sha
 import Git.Command
+import Git.FilePath
 import qualified Git.Filename
 import qualified Git.Ref
 
@@ -29,7 +30,7 @@ data DiffTreeItem = DiffTreeItem
 	, srcsha :: Sha -- nullSha if file was added
 	, dstsha :: Sha -- nullSha if file was deleted
 	, status :: String
-	, file :: FilePath
+	, file :: TopFilePath
 	} deriving Show
 
 {- Diffs two tree Refs. -}
@@ -86,7 +87,7 @@ parseDiffTree l = go l []
 		, srcsha = fromMaybe (error "bad srcsha") $ extractSha ssha
 		, dstsha = fromMaybe (error "bad dstsha") $ extractSha dsha
 		, status = s
-		, file = Git.Filename.decode f
+		, file = asTopFilePath $ Git.Filename.decode f
 		}
 	  where
 		readmode = fst . Prelude.head . readOct

Git/FilePath.hs

@@ -14,6 +14,7 @@
 
 module Git.FilePath (
 	TopFilePath,
+	fromTopFilePath,
 	getTopFilePath,
 	toTopFilePath,
 	asTopFilePath,
@@ -27,6 +28,11 @@ import Git
 
 {- A FilePath, relative to the top of the git repository. -}
 newtype TopFilePath = TopFilePath { getTopFilePath :: FilePath }
+	deriving (Show)
+
+{- Returns an absolute FilePath. -}
+fromTopFilePath :: TopFilePath -> Git.Repo -> FilePath
+fromTopFilePath p repo = absPathFrom (repoPath repo) (getTopFilePath p)
 
 {- The input FilePath can be absolute, or relative to the CWD. -}
 toTopFilePath :: FilePath -> Git.Repo -> IO TopFilePath

Git/LsTree.hs

@@ -20,13 +20,14 @@ import Common
 import Git
 import Git.Command
 import Git.Sha
+import Git.FilePath
 import qualified Git.Filename
 
 data TreeItem = TreeItem
 	{ mode :: FileMode
 	, typeobj :: String
 	, sha :: String
-	, file :: FilePath
+	, file :: TopFilePath
 	} deriving Show
 
 {- Lists the complete contents of a tree, with lazy output. -}
@@ -48,7 +49,7 @@ parseLsTree l = TreeItem
 	{ mode = fst $ Prelude.head $ readOct m
 	, typeobj = t
 	, sha = s
-	, file = Git.Filename.decode f
+	, file = asTopFilePath $ Git.Filename.decode f
 	}
   where
 	-- l = <mode> SP <type> SP <sha> TAB <file>