git-annex/Types/Backend.hs

{- git-annex key/value backend data type
 -
 - Most things should not need this, using Types instead
 -
 - Copyright 2010,2012 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Types.Backend where

import Types.Key
import Types.KeySource

data BackendA a = Backend
	{ name :: String
	, getKey :: KeySource -> a (Maybe Key) 
	, fsckKey :: Maybe (Key -> FilePath -> a Bool)
	, canUpgradeKey :: Maybe (Key -> Bool)
	}

instance Show (BackendA a) where
	show backend = "Backend { name =\"" ++ name backend ++ "\" }"

instance Eq (BackendA a) where
	a == b = name a == name b
first pass at using new keys It compiles. It sorta works. Several subcommands are FIXME marked and broken, because things that used to accept separate --backend and --key params need to be changed to accept just a --key that encodes all the key info, now that there is metadata in keys. 2011-03-15 21:34:13 -04:00			`{- git-annex key/value backend data type`
more namespace cleanup 2010-10-14 02:52:17 -04:00			`-`
fix comment 2011-12-31 04:14:33 -04:00			`- Most things should not need this, using Types instead`
copyright statements 2010-10-27 16:53:54 -04:00			`-`
separate source of content from the filename associated with the key when generating a key This already made migrate's code a lot simpler. 2012-06-05 19:51:03 -04:00			`- Copyright 2010,2012 Joey Hess <joey@kitenet.net>`
copyright statements 2010-10-27 16:53:54 -04:00			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
more namespace cleanup 2010-10-14 02:52:17 -04:00			`-}`
update 2010-10-12 15:52:18 -04:00
rename modules for data types into Types/ directory 2011-06-01 21:56:04 -04:00			`module Types.Backend where`
update 2010-10-12 15:52:18 -04:00
rename modules for data types into Types/ directory 2011-06-01 21:56:04 -04:00			`import Types.Key`
maintain set of files pendingAdd Kqueue needs to remember which files failed to be added due to being open, and retry them. This commit gets the data in place for such a retry thread. Broke KeySource out into its own file, and added Eq and Ord instances so it can be stored in a Set. 2012-06-20 16:07:14 -04:00			`import Types.KeySource`
separate source of content from the filename associated with the key when generating a key This already made migrate's code a lot simpler. 2012-06-05 19:51:03 -04:00
layout 2012-06-06 11:58:08 -04:00			`data BackendA a = Backend`
			`{ name :: String`
			`, getKey :: KeySource -> a (Maybe Key)`
			`, fsckKey :: Maybe (Key -> FilePath -> a Bool)`
handle shasum's leading \ in checksum with certian unsual filenames Bugfix: Remove leading \ from checksums output by shasum commands, when the filename contains \ or a newline. Closes: #696384 fsck: Still accept checksums with a leading \ as valid, now that above bug is fixed. * migrate: Remove leading \ in checksums 2012-12-20 15:43:14 -04:00			`, canUpgradeKey :: Maybe (Key -> Bool)`
layout 2012-06-06 11:58:08 -04:00			`}`
rename TypeInternals to BackendTypes Now that it only contains types used by the backends 2011-01-26 00:37:50 -04:00
type alias cleanup 2011-12-31 04:11:39 -04:00			`instance Show (BackendA a) where`
rename TypeInternals to BackendTypes Now that it only contains types used by the backends 2011-01-26 00:37:50 -04:00			`show backend = "Backend { name =\"" ++ name backend ++ "\" }"`

type alias cleanup 2011-12-31 04:11:39 -04:00			`instance Eq (BackendA a) where`
rename TypeInternals to BackendTypes Now that it only contains types used by the backends 2011-01-26 00:37:50 -04:00			`a == b = name a == name b`