From 5de102d5b90fb621bdb1bd81cf5f562a9a2549e4 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 15 Oct 2010 19:33:10 -0400
Subject: [PATCH] rename backends more

---
 Backend/{Checksum.hs => SHA1.hs} |  8 ++++----
 Backend/{Url.hs => URL.hs}       |  6 +++---
 Backend/{Worm.hs => WORM.hs}     |  2 +-
 BackendList.hs                   | 12 ++++++------
 4 files changed, 14 insertions(+), 14 deletions(-)
 rename Backend/{Checksum.hs => SHA1.hs} (58%)
 rename Backend/{Url.hs => URL.hs} (92%)
 rename Backend/{Worm.hs => WORM.hs} (97%)

diff --git a/Backend/Checksum.hs b/Backend/SHA1.hs
similarity index 58%
rename from Backend/Checksum.hs
rename to Backend/SHA1.hs
index de98fbf446..8c7c99bbd7 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
similarity index 92%
rename from Backend/Url.hs
rename to Backend/URL.hs
index e237672084..4e87ca4c26 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
similarity index 97%
rename from Backend/Worm.hs
rename to Backend/WORM.hs
index 89fe4bf572..9a1e17ec5f 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 93c0464f1b..42e237204f 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