diff options
author | 2010-10-15 19:33:10 -0400 | |
---|---|---|
committer | 2010-10-15 19:33:10 -0400 | |
commit | 5de102d5b90fb621bdb1bd81cf5f562a9a2549e4 (patch) | |
tree | c5b6c8eb9aebbc7c525fcea448d9f7fbac826d83 /Backend | |
parent | e67887d98b61aeabffc9d1a231421bb00848dd13 (diff) |
rename backends more
Diffstat (limited to 'Backend')
-rw-r--r-- | Backend/SHA1.hs (renamed from Backend/Checksum.hs) | 8 | ||||
-rw-r--r-- | Backend/URL.hs (renamed from Backend/Url.hs) | 6 | ||||
-rw-r--r-- | Backend/WORM.hs (renamed from Backend/Worm.hs) | 2 |
3 files changed, 8 insertions, 8 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 |