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 16:53:54 -04: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 00:18:16 -04:00
update 2010-10-10 18:05:37 -04:00			`import System.Environment`
tweaks 2010-10-16 16:20:49 -04:00
more reorg, spiffed up state monad 2010-10-14 03:18:11 -04:00			`import qualified Annex`
more refactor 2010-10-14 03:40:26 -04:00			`import Core`
move stuff out of Core 2010-11-14 14:44:24 -04:00			`import Upgrade`
broke subcommands out into separate modules 2010-11-02 19:04:24 -04:00			`import CmdLine`
bug 2010-10-14 16:13:43 -04: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 11:47:36 -04:00			`import BackendList`
add 2010-10-10 00:18:16 -04:00
more Wall cleaning 2010-10-31 14:32:18 -04:00			`main :: IO ()`
add 2010-10-10 00:18:16 -04:00			`main = do`
update 2010-10-10 18:05:37 -04:00			`args <- getArgs`
bug 2010-10-14 16:13:43 -04: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 11:47:36 -04: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 14:07:49 -04:00			`(actions, state') <- Annex.run state $ parseCmd args`
			`tryRun state' $ [startup, upgrade] ++ actions`