diff options
Diffstat (limited to 'Types/Backend.hs')
| -rw-r--r-- | Types/Backend.hs | 4 |
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 |