git-annex/git-annex.hs

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

import System.Environment

import qualified Annex
import Core
import Upgrade
import CmdLine
import qualified GitRepo as Git
import BackendList

main :: IO ()
main = do
	args <- getArgs
	gitrepo <- Git.repoFromCwd
	state <- Annex.new gitrepo allBackends
	(actions, state') <- Annex.run state $ parseCmd args
	tryRun state' $ [startup, upgrade] ++ actions
copyright statements 2010-10-27 20:53:54 +00:00			`{- git-annex main program`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`
add 2010-10-10 04:18:16 +00:00
update 2010-10-10 22:05:37 +00:00			`import System.Environment`
tweaks 2010-10-16 20:20:49 +00:00
more reorg, spiffed up state monad 2010-10-14 07:18:11 +00:00			`import qualified Annex`
more refactor 2010-10-14 07:40:26 +00:00			`import Core`
move stuff out of Core 2010-11-14 18:44:24 +00:00			`import Upgrade`
broke subcommands out into separate modules 2010-11-02 23:04:24 +00:00			`import CmdLine`
bug 2010-10-14 20:13:43 +00:00			`import qualified GitRepo as Git`
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			`import BackendList`
add 2010-10-10 04:18:16 +00:00
more Wall cleaning 2010-10-31 18:32:18 +00:00			`main :: IO ()`
add 2010-10-10 04:18:16 +00:00			`main = do`
update 2010-10-10 22:05:37 +00:00			`args <- getArgs`
bug 2010-10-14 20:13:43 +00:00			`gitrepo <- Git.repoFromCwd`
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			`state <- Annex.new gitrepo allBackends`
Add --exclude option to exclude files from processing. Required some lifting so flags are evaled in the Annex monad before file filtering. 2010-12-08 18:07:49 +00:00			`(actions, state') <- Annex.run state $ parseCmd args`
			`tryRun state' $ [startup, upgrade] ++ actions`