convert fsckKey to a Maybe

This way it's clear when a backend does not implement its own fsck checks.

1 files changed, 2 insertions, 2 deletions

diff --git a/Types/Backend.hs b/Types/Backend.hs
index 025293a90..1966d667f 100644
--- a/Types/Backend.hs
+++ b/Types/Backend.hs
@@ -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