fsck bugfixes
This commit is contained in:
parent
abebbcfd54
commit
dd573e7010
2 changed files with 5 additions and 3 deletions
|
@ -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)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue