git-annex/BackendList.hs

{- git-annex backend list
 -
 - Copyright 2010 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module BackendList (allBackends) where

-- When adding a new backend, import it here and add it to the list.
import qualified Backend.WORM
import qualified Backend.SHA
import Types

allBackends :: [Backend Annex]
allBackends = concat 
	[ Backend.WORM.backends
	, Backend.SHA.backends
	]
update 2010-10-10 22:05:37 +00:00			`{- git-annex backend list`
copyright statements 2010-10-27 20:53:54 +00:00			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`
update 2010-10-10 22:05:37 +00:00
move supportedBackends list into annex monad This was necessary so the File backend could import Backend w/o a cycle. Moved code that checks whether enough backends have a file into File backend. 2010-10-17 15:47:36 +00:00			`module BackendList (allBackends) where`
update 2010-10-10 22:05:37 +00:00
			`-- When adding a new backend, import it here and add it to the list.`
rename backends more 2010-10-15 23:33:10 +00:00			`import qualified Backend.WORM`
only enable SHA backends that configure finds support for 2011-03-02 17:47:45 +00:00			`import qualified Backend.SHA`
tweak 2010-12-01 23:19:36 +00:00			`import Types`
more Wall cleaning 2010-10-31 18:40:34 +00:00
parameterize Backend type This allows the Backend type to not depend on the Annex type, and so the Annex type can later be moved out of TypeInternals. 2011-01-26 01:02:34 +00:00			`allBackends :: [Backend Annex]`
only enable SHA backends that configure finds support for 2011-03-02 17:47:45 +00:00			`allBackends = concat`
			`[ Backend.WORM.backends`
			`, Backend.SHA.backends`
update 2010-10-10 22:05:37 +00:00			`]`