convert fsckKey to a Maybe

This way it's clear when a backend does not implement its own fsck checks.
This commit is contained in:
Joey Hess 2012-01-19 13:51:30 -04:00
parent 50c063df06
commit d36525e974
5 changed files with 8 additions and 6 deletions

View file

@ -16,8 +16,8 @@ data BackendA a = Backend {
name :: String,
-- converts a filename to a key
getKey :: FilePath -> a (Maybe Key),
-- called during fsck to check a key
fsckKey :: Key -> a Bool
-- called during fsck to check a key, if the backend has its own checks
fsckKey :: Maybe (Key -> a Bool)
}
instance Show (BackendA a) where