diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:56:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-01 15:56:24 -0400 |
| commit | 02fe8a497434ed6b7cfa12d68779bcaa0d9813c2 (patch) | |
| tree | fd884b759a3e22af4b679de2c24d3dfb914058d1 /Git/LsTree.hs | |
| parent | 131e38a3ae3d40fb38738e78df6fed4e4a1e6005 (diff) | |
improve data type
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 13f3e4bcd..b1d9190d0 100644 --- a/Git/LsTree.hs +++ b/Git/LsTree.hs @@ -26,7 +26,7 @@ import System.Posix.Types data TreeItem = TreeItem { mode :: FileMode , typeobj :: String - , sha :: String + , sha :: Ref , file :: TopFilePath } deriving Show @@ -66,7 +66,7 @@ parseLsTree :: String -> TreeItem parseLsTree l = TreeItem { mode = fst $ Prelude.head $ readOct m , typeobj = t - , sha = s + , sha = Ref s , file = asTopFilePath $ Git.Filename.decode f } where |