rename backends more

4 files changed, 14 insertions, 14 deletions

diff --git a/Backend/Checksum.hs b/Backend/SHA1.hs
index de98fbf44..8c7c99bbd 100644
--- a/Backend/Checksum.hs
+++ b/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
diff --git a/Backend/Url.hs b/Backend/URL.hs
index e23767208..4e87ca4c2 100644
--- a/Backend/Url.hs
+++ b/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,
diff --git a/Backend/Worm.hs b/Backend/WORM.hs
index 89fe4bf57..9a1e17ec5 100644
--- a/Backend/Worm.hs
+++ b/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
diff --git a/BackendList.hs b/BackendList.hs
index 93c0464f1..42e237204 100644
--- a/BackendList.hs
+++ b/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.Checksum
-import qualified Backend.Url
+import qualified Backend.WORM
+import qualified Backend.SHA1
+import qualified Backend.URL
 supportedBackends = 
-	[ Backend.Worm.backend
-	, Backend.Checksum.backend
-	, Backend.Url.backend
+	[ Backend.WORM.backend
+	, Backend.SHA1.backend
+	, Backend.URL.backend
 	]
 
 {- Parses a string with a list of backend names into