diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-10 14:36:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-10 14:36:57 -0400 |
| commit | 081228e4cd03fb484dee3c26d1932f2ddcee87f8 (patch) | |
| tree | f32485d2ee1d1ee4cc974dd7d759465bcd44574c /Git/LsTree.hs | |
| parent | 4b9f753049b28c5452c2ae1483612a367293302a (diff) | |
git diff-tree interface
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 64187b89b..373bf0006 100644 --- a/Git/LsTree.hs +++ b/Git/LsTree.hs @@ -19,6 +19,7 @@ import System.Posix.Types import Common import Git import Git.Command +import Git.Sha import qualified Git.Filename data TreeItem = TreeItem @@ -53,5 +54,5 @@ parseLsTree l = TreeItem -- specific positions in the line. (m, past_m) = splitAt 7 l (t, past_t) = splitAt 4 past_m - (s, past_s) = splitAt 40 $ Prelude.tail past_t + (s, past_s) = splitAt shaSize $ Prelude.tail past_t f = Prelude.tail past_s |