rename backends more

2010-10-15 19:33:10 -04:00 · 2010-10-15 19:33:10 -04:00 · 5de102d5b9
commit 5de102d5b9
parent e67887d98b
4 changed files with 14 additions and 14 deletions
--- a/Backend/SHA1.hs
+++ b/Backend/SHA1.hs
@ -0,0 +1,17 @@
+{- git-annex "SHA1" backend
+ - -}
+
+module Backend.SHA1 (backend) where
+
+import qualified Backend.File
+import Data.Digest.Pure.SHA
+import BackendTypes
+
+backend = Backend.File.backend {
+	name = "SHA1",
+	getKey = keyValue
+}
+
+-- checksum the file to get its key
+keyValue :: FilePath -> Annex (Maybe Key)
+keyValue k = error "SHA1 keyValue unimplemented" -- TODO