summaryrefslogtreecommitdiff
path: root/BackendTypes.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-01-26 20:37:46 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-01-26 20:37:46 -0400
commite1d213d6e3c9fe0cda6e2b80c4abeb17db5d3a16 (patch)
tree93582f5e205a144f49a937b3b7ae5d1084469a6f /BackendTypes.hs
parentc30d38e108ade7eb4fa57552631b64dd3b9582c4 (diff)
make filename available to fsck messages
Diffstat (limited to 'BackendTypes.hs')
-rw-r--r--BackendTypes.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/BackendTypes.hs b/BackendTypes.hs
index e4b155f98..fd4a61b98 100644
--- a/BackendTypes.hs
+++ b/BackendTypes.hs
@@ -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