convert fsckKey to a Maybe

This way it's clear when a backend does not implement its own fsck checks.
2012-01-19 13:51:30 -04:00 · 2012-01-19 13:51:30 -04:00 · d36525e974
commit d36525e974
parent 50c063df06
5 changed files with 8 additions and 6 deletions
--- 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