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 qualified Backend.URL
import Types

allBackends :: [Backend Annex]
allBackends = concat 
	[ Backend.WORM.backends
	, Backend.SHA.backends
	, Backend.URL.backends
	]
update 2010-10-10 18:05:37 -04:00			`{- git-annex backend list`
copyright statements 2010-10-27 16:53:54 -04:00			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`
update 2010-10-10 18:05:37 -04: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 11:47:36 -04:00			`module BackendList (allBackends) where`
update 2010-10-10 18:05:37 -04:00
			`-- When adding a new backend, import it here and add it to the list.`
rename backends more 2010-10-15 19:33:10 -04:00			`import qualified Backend.WORM`
only enable SHA backends that configure finds support for 2011-03-02 13:47:45 -04:00			`import qualified Backend.SHA`
rename backends more 2010-10-15 19:33:10 -04:00			`import qualified Backend.URL`
tweak 2010-12-01 19:19:36 -04:00			`import Types`
more Wall cleaning 2010-10-31 14:40:34 -04: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-25 21:02:34 -04:00			`allBackends :: [Backend Annex]`
only enable SHA backends that configure finds support for 2011-03-02 13:47:45 -04:00			`allBackends = concat`
			`[ Backend.WORM.backends`
			`, Backend.SHA.backends`
			`, Backend.URL.backends`
update 2010-10-10 18:05:37 -04:00			`]`