diff options
| author | Joey Hess <joey@kitenet.net> | 2014-10-12 14:32:56 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-12 14:32:56 -0400 |
| commit | efef527d5b2e42e261fa7af6947aad6553426ebe (patch) | |
| tree | 082a5dad993557e9dffd76a69d4087371da8ed42 /Git/CatFile.hs | |
| parent | ab1cf3570207bd08ae0abbba183a8c570c0361f5 (diff) | |
| download | git-repair-efef527d5b2e42e261fa7af6947aad6553426ebe.tar.gz | |
Merge from git-annex.
Includes changing to new exceptions library, and some whitespace fixes.
Diffstat (limited to 'Git/CatFile.hs')
| -rw-r--r-- | Git/CatFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/CatFile.hs b/Git/CatFile.hs index 8e64fc5..d0bcef4 100644 --- a/Git/CatFile.hs +++ b/Git/CatFile.hs @@ -94,7 +94,7 @@ catTree :: CatFileHandle -> Ref -> IO [(FilePath, FileMode)] catTree h treeref = go <$> catObjectDetails h treeref where go (Just (b, _, TreeObject)) = parsetree [] b - go _ = [] + go _ = [] parsetree c b = case L.break (== 0) b of (modefile, rest) |