subdir

Backend/Checksum.hs

@@ -1,14 +1,14 @@
 {- git-annex "checksum" backend
  - -}
 
-module BackendChecksum (backend) where
+module Backend.Checksum (backend) where
 
-import qualified BackendFile
+import qualified Backend.File
 import Data.Digest.Pure.SHA
 import BackendTypes
 
 -- based on BackendFile just with a different key type
-backend = BackendFile.backend {
+backend = Backend.File.backend {
 	name = "checksum",
 	getKey = keyValue
 }

Backend/File.hs

@@ -1,7 +1,7 @@
 {- git-annex "file" backend
  - -}
 
-module BackendFile (backend) where
+module Backend.File (backend) where
 
 import Control.Monad.State
 import System.IO

Backend/Url.hs

@@ -1,7 +1,7 @@
 {- git-annex "url" backend
  - -}
 
-module BackendUrl (backend) where
+module Backend.Url (backend) where
 
 import Control.Monad.State
 import System.Cmd

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 BackendFile
-import qualified BackendChecksum
-import qualified BackendUrl
+import qualified Backend.File
+import qualified Backend.Checksum
+import qualified Backend.Url
 supportedBackends = 
-	[ BackendFile.backend
-	, BackendChecksum.backend
-	, BackendUrl.backend
+	[ Backend.File.backend
+	, Backend.Checksum.backend
+	, Backend.Url.backend
 	]
 
 {- Parses a string with a list of backend names into