rename backends more

Backend/SHA1.hs

@@ -1,17 +1,17 @@
-{- git-annex "checksum" backend
+{- git-annex "SHA1" backend
  - -}
 
-module Backend.Checksum (backend) where
+module Backend.SHA1 (backend) where
 
 import qualified Backend.File
 import Data.Digest.Pure.SHA
 import BackendTypes
 
 backend = Backend.File.backend {
-	name = "checksum",
+	name = "SHA1",
 	getKey = keyValue
 }
 
 -- checksum the file to get its key
 keyValue :: FilePath -> Annex (Maybe Key)
-keyValue k = error "checksum keyValue unimplemented" -- TODO
+keyValue k = error "SHA1 keyValue unimplemented" -- TODO

Backend/URL.hs

@@ -1,7 +1,7 @@
-{- git-annex "url" backend
+{- git-annex "URL" backend
  - -}
 
-module Backend.Url (backend) where
+module Backend.URL (backend) where
 
 import Control.Monad.State (liftIO)
 import Data.String.Utils
@@ -10,7 +10,7 @@ import System.Exit
 import BackendTypes
 
 backend = Backend {
-	name = "url",
+	name = "URL",
 	getKey = keyValue,
 	storeFileKey = dummyStore,
 	retrieveKeyFile = downloadUrl,

Backend/WORM.hs

@@ -1,7 +1,7 @@
 {- git-annex "WORM" backend -- Write Once, Read Many
  - -}
 
-module Backend.Worm (backend) where
+module Backend.WORM (backend) where
 
 import Control.Monad.State
 import qualified Backend.File

BackendList.hs

@@ -10,13 +10,13 @@ module BackendList (
 import BackendTypes
 
 -- When adding a new backend, import it here and add it to the list.
-import qualified Backend.Worm
+import qualified Backend.WORM
-import qualified Backend.Checksum
+import qualified Backend.SHA1
-import qualified Backend.Url
+import qualified Backend.URL
 supportedBackends = 
-	[ Backend.Worm.backend
+	[ Backend.WORM.backend
-	, Backend.Checksum.backend
+	, Backend.SHA1.backend
-	, Backend.Url.backend
+	, Backend.URL.backend
 	]
 
 {- Parses a string with a list of backend names into