diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-01-19 13:51:30 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-01-19 13:51:30 -0400 |
| commit | d36525e9745b90cc04abfeac6500ff646cb9c89b (patch) | |
| tree | b497b310b7e9da8e00859a9eed616b36c297c07b /Backend | |
| parent | 50c063df069682bdac2af3b1746933da70a519b8 (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.hs | 2 | ||||
| -rw-r--r-- | Backend/URL.hs | 2 | ||||
| -rw-r--r-- | Backend/WORM.hs | 2 |
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 |