make filename available to fsck messages
This commit is contained in:
parent
c30d38e108
commit
e1d213d6e3
5 changed files with 20 additions and 17 deletions
|
@ -31,9 +31,10 @@ data Backend a = Backend {
|
|||
-- checks if a backend is storing the content of a key
|
||||
hasKey :: Key -> a Bool,
|
||||
-- called during fsck to check a key
|
||||
-- (second parameter may be the number of copies that there should
|
||||
-- (second parameter may be the filename associated with it)
|
||||
-- (third parameter may be the number of copies that there should
|
||||
-- be of the key)
|
||||
fsckKey :: Key -> Maybe Int -> a Bool
|
||||
fsckKey :: Key -> Maybe FilePath -> Maybe Int -> a Bool
|
||||
}
|
||||
|
||||
instance Show (Backend a) where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue