git-annex/git-annex.hs

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

import System.Environment

import GitAnnex

main :: IO ()
main = do
	args <- getArgs
	run args
workaround ghc weirdness with -odir The option cause it to always build to build/Main.o, no matter what binary it was building. This caused extra work, and in some cases, could cause the wrong code to be put into the final binary. 2011-01-07 02:15:23 -04:00			`{- git-annex main program stub`
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.`
			`-}`
add 2010-10-10 00:18:16 -04:00
add git-annex-shell command This is not yet complete, as it does not allow starting rsync or scp. 2010-12-30 16:52:24 -04:00			`import System.Environment`
tweaks 2010-10-16 16:20:49 -04:00
make test suite link in git-annex's commands and run directly this way, test coverage works 2011-01-06 20:26:57 -04:00			`import GitAnnex`
put in utf8 forcing workaround Haskell's IO layer crashes on characters > 255 when in a non-unicode (latin1) locale. Until Haskell gets better behavior, put in an admittedly ugly workaround for that: git-annex forces utf8 output mode no matter what locale is selected. So if you use a non-utf8 locale, your filenames with characters > 127 will not be displayed as you'd expect. But at least it won't crash. 2011-03-08 18:05:20 -04:00
more Wall cleaning 2010-10-31 14:32:18 -04:00			`main :: IO ()`
add git-annex-shell command This is not yet complete, as it does not allow starting rsync or scp. 2010-12-30 16:52:24 -04:00			`main = do`
			`args <- getArgs`
workaround ghc weirdness with -odir The option cause it to always build to build/Main.o, no matter what binary it was building. This caused extra work, and in some cases, could cause the wrong code to be put into the final binary. 2011-01-07 02:15:23 -04:00			`run args`