summaryrefslogtreecommitdiff
path: root/Backend
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-19 13:51:30 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-19 13:51:30 -0400
commitd36525e9745b90cc04abfeac6500ff646cb9c89b (patch)
treeb497b310b7e9da8e00859a9eed616b36c297c07b /Backend
parent50c063df069682bdac2af3b1746933da70a519b8 (diff)
convert fsckKey to a Maybe
This way it's clear when a backend does not implement its own fsck checks.
Diffstat (limited to 'Backend')
-rw-r--r--Backend/SHA.hs2
-rw-r--r--Backend/URL.hs2
-rw-r--r--Backend/WORM.hs2
3 files changed, 3 insertions, 3 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs
index a1124dfe2..29f4e2e94 100644
--- a/Backend/SHA.hs
+++ b/Backend/SHA.hs
@@ -32,7 +32,7 @@ genBackend size
b = Backend
{ name = shaName size
, getKey = keyValue size
- , fsckKey = checkKeyChecksum size
+ , fsckKey = Just $ checkKeyChecksum size
}
genBackendE :: SHASize -> Maybe Backend
diff --git a/Backend/URL.hs b/Backend/URL.hs
index 7f621b00f..6406095ca 100644
--- a/Backend/URL.hs
+++ b/Backend/URL.hs
@@ -21,7 +21,7 @@ backend :: Backend
backend = Backend {
name = "URL",
getKey = const (return Nothing),
- fsckKey = const (return True)
+ fsckKey = Nothing
}
fromUrl :: String -> Key
diff --git a/Backend/WORM.hs b/Backend/WORM.hs
index ae9833e30..c022fd413 100644
--- a/Backend/WORM.hs
+++ b/Backend/WORM.hs
@@ -18,7 +18,7 @@ backend :: Backend
backend = Backend {
name = "WORM",
getKey = keyValue,
- fsckKey = const (return True)
+ fsckKey = Nothing
}
{- The key includes the file size, modification time, and the