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
	(configure, actions) <- parseCmd args state
	tryRun state $ [startup, upgrade] ++ configure ++ 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`
new fromkey subcommand, for registering urls, etc had to redo Annex monad's flag storage 2010-10-21 20:30:16 +00:00			`(configure, actions) <- parseCmd args state`
Avoid deleting temp files when rsync fails. 2010-12-02 21:51:02 +00:00			`tryRun state $ [startup, upgrade] ++ configure ++ actions`