diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-30 15:18:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-30 15:18:40 -0400 |
| commit | 440f3b1068a1d0a49dff1307124c4f7f0bcd6f5d (patch) | |
| tree | dcc4b0c54f52b89aa95956c0e32cf6e781f17057 /Command/XMPPGit.hs | |
| parent | f04b34c4584e18f4c722700eda5e80eb0345f035 (diff) | |
make "git annex help options" work outside a git repo
Option parsing for commands that run outside git repos is still screwy,
as there is no Annex monad and so the flags cannot be passed in. But,
any remaining parameters can be, which is enough for this fix.
Diffstat (limited to 'Command/XMPPGit.hs')
| -rw-r--r-- | Command/XMPPGit.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/XMPPGit.hs b/Command/XMPPGit.hs index c1ff0b108..796e8b4ed 100644 --- a/Command/XMPPGit.hs +++ b/Command/XMPPGit.hs @@ -12,7 +12,7 @@ import Command import Assistant.XMPP.Git def :: [Command] -def = [noCommit $ noRepo xmppGitRelay $ dontCheck repoExists $ +def = [noCommit $ noRepo startNoRepo $ dontCheck repoExists $ command "xmppgit" paramNothing seek SectionPlumbing "git to XMPP relay"] @@ -25,6 +25,9 @@ start _ = do liftIO xmppGitRelay stop +startNoRepo :: CmdParams -> IO () +startNoRepo _ = xmppGitRelay + {- A basic implementation of the git-remote-helpers protocol. -} gitRemoteHelper :: IO () gitRemoteHelper = do |