fsck bugfixes

This commit is contained in:
Joey Hess 2010-11-13 15:40:12 -04:00
parent abebbcfd54
commit dd573e7010
2 changed files with 5 additions and 3 deletions

View file

@ -47,7 +47,7 @@ keyValue file = do
{- Extracts the file size from a key. -}
keySize :: Key -> FileOffset
keySize key = read $ section !! 2
keySize key = read $ section !! 1
where
section = split ":" (keyName key)