diff options
author | 2010-10-14 03:50:28 -0400 | |
---|---|---|
committer | 2010-10-14 03:50:28 -0400 | |
commit | 0f12bd16d829432f7b1c2efbba386262ed36fc27 (patch) | |
tree | f205d39ce599d1c25f0ce76b590a604377605a75 | |
parent | 7117702fddf521ed4f3675a91cd87119207eba02 (diff) |
subdir
-rw-r--r-- | Backend/Checksum.hs (renamed from BackendChecksum.hs) | 6 | ||||
-rw-r--r-- | Backend/File.hs (renamed from BackendFile.hs) | 2 | ||||
-rw-r--r-- | Backend/Url.hs (renamed from BackendUrl.hs) | 2 | ||||
-rw-r--r-- | BackendList.hs | 12 |
4 files changed, 11 insertions, 11 deletions
diff --git a/BackendChecksum.hs b/Backend/Checksum.hs index 50ef2ae6f..bfc789e40 100644 --- a/BackendChecksum.hs +++ b/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 } diff --git a/BackendFile.hs b/Backend/File.hs index 284daca88..107ef3851 100644 --- a/BackendFile.hs +++ b/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 diff --git a/BackendUrl.hs b/Backend/Url.hs index fc0a8ae58..e4ba58e6d 100644 --- a/BackendUrl.hs +++ b/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 diff --git a/BackendList.hs b/BackendList.hs index 91a2fa7fc..e9f926ce2 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 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 |