BackendFile.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{- git-annex "file" backend
 - -}

module BackendFile (backend) where

import Backend

backend = Backend {
	name = "file",
	keyvalue = keyValue,
	retrievekey = copyFile
}

-- direct mapping from filename to key
keyValue k = Just $ id k

copyFile f = error "unimplemented"