aboutsummaryrefslogtreecommitdiff
path: root/git-annex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-14 16:13:43 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-14 16:13:43 -0400
commitaa2f4bd81049e3bcaad6f5f1334864ce14887527 (patch)
treec95789d863313ab610a6ebd4514ed2623801dd28 /git-annex.hs
parentd4ce0724527fa0155f737b5d3e94e190c27d29dc (diff)
bug
Diffstat (limited to 'git-annex.hs')
-rw-r--r--git-annex.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/git-annex.hs b/git-annex.hs
index 78e875014..f9d9311eb 100644
--- a/git-annex.hs
+++ b/git-annex.hs
@@ -7,12 +7,15 @@ import qualified Annex
import Types
import Core
import Commands
+import Annex
+import qualified GitRepo as Git
main = do
args <- getArgs
actions <- argvToActions args
- state <- start
- tryRun state actions
+ gitrepo <- Git.repoFromCwd
+ state <- new gitrepo
+ tryRun state (gitSetup:actions)
{- Runs a list of Annex actions. Catches exceptions, not stopping
- if some error out, and propigates an overall error status at the end.