diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-10 15:27:49 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-10 15:27:49 -0400 |
commit | eb577ee37ff1d631aa3580a235b9954043d0fb27 (patch) | |
tree | 6fe1aa8602861298bc34e7b00429f4d3b5e4551e /BackendChecksum.hs | |
parent | 4631927a5c7b14605725f1c6f272fee19d8b4318 (diff) |
stub checksum backend
Diffstat (limited to 'BackendChecksum.hs')
-rw-r--r-- | BackendChecksum.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/BackendChecksum.hs b/BackendChecksum.hs new file mode 100644 index 000000000..267f8099c --- /dev/null +++ b/BackendChecksum.hs @@ -0,0 +1,18 @@ +{- git-annex "checksum" backend + - -} + +module BackendChecksum (backend) where + +import Backend +import qualified BackendFile +import Data.Digest.Pure.SHA + +-- based on BackendFile just with a different key type +backend = BackendFile.backend { + name = "checksum", + getKey = keyValue +} + +-- +keyValue :: FilePath -> IO (Maybe Key) +keyValue k = error "unimplemented" -- TODO |