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:
parent
50c063df06
commit
d36525e974
5 changed files with 8 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue