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

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

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