git-annex/Backend/SHA1.hs

{- git-annex "SHA1" backend
 - -}

module Backend.SHA1 (backend) where

import Data.Digest.Pure.SHA

import qualified Backend.File
import TypeInternals

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
rename backends more 2010-10-15 23:33:10 +00:00			`{- git-annex "SHA1" backend`
stub checksum backend 2010-10-10 19:27:49 +00:00			`- -}`

rename backends more 2010-10-15 23:33:10 +00:00			`module Backend.SHA1 (backend) where`
stub checksum backend 2010-10-10 19:27:49 +00:00
			`import Data.Digest.Pure.SHA`
tweaks 2010-10-16 20:20:49 +00:00
			`import qualified Backend.File`
gratuitous rename 2010-10-18 06:06:27 +00:00			`import TypeInternals`
stub checksum backend 2010-10-10 19:27:49 +00:00
subdir 2010-10-14 07:50:28 +00:00			`backend = Backend.File.backend {`
rename backends more 2010-10-15 23:33:10 +00:00			`name = "SHA1",`
stub checksum backend 2010-10-10 19:27:49 +00:00			`getKey = keyValue`
			`}`

update 2010-10-10 19:41:35 +00:00			`-- checksum the file to get its key`
use a state monad enormous reworking 2010-10-14 01:28:47 +00:00			`keyValue :: FilePath -> Annex (Maybe Key)`
rename backends more 2010-10-15 23:33:10 +00:00			`keyValue k = error "SHA1 keyValue unimplemented" -- TODO`