diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-28 16:43:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-28 16:43:10 -0400 |
| commit | 297bc648b9a3c1b950e65f23a0e974b7934dc4dd (patch) | |
| tree | 829ba7455be689c6e389d06420b24e0fe9c74bc6 /Git/LsTree.hs | |
| parent | 5ae270001c978b306419e6799e67e5f14a1765a2 (diff) | |
make unused check branches and tags too
needs time and space optimisation
Diffstat (limited to 'Git/LsTree.hs')
| -rw-r--r-- | Git/LsTree.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Git/LsTree.hs b/Git/LsTree.hs index 2220cfc50..4a6c509f9 100644 --- a/Git/LsTree.hs +++ b/Git/LsTree.hs @@ -6,6 +6,7 @@ -} module Git.LsTree ( + TreeItem(..), lsTree ) where @@ -43,7 +44,8 @@ parseLsTree l = TreeItem m o s f (o, past_o) = splitAt 4 $ space past_m (s, past_s) = splitAt shaSize $ space past_o f = decodeGitFile $ space past_s - space s@(sp:rest) + space (sp:rest) | isSpace sp = rest - | otherwise = error $ - "ls-tree parse error at '" ++ s ++ "' in " ++ l + | otherwise = parseerr + space [] = parseerr + parseerr = "ls-tree parse error: " ++ l |