aboutsummaryrefslogtreecommitdiff
path: root/git-annex.hs
diff options
context:
space:
mode:
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.