Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: e138a514a9
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (18 sloc) 0.453 kB
{- git-annex main program stub
-
- Copyright 2010,2012 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
import System.Environment
import System.FilePath
import qualified GitAnnex
import qualified GitAnnexShell
main :: IO ()
main = run =<< getProgName
where
run n
| isshell n = go GitAnnexShell.run
| otherwise = go GitAnnex.run
isshell n = takeFileName n == "git-annex-shell"
go a = a =<< getArgs
Jump to Line
Something went wrong with that request. Please try again.