diff options
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 6e4cd8470..031dba0cf 100644 --- a/Git/LsTree.hs +++ b/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> |