add xmppgit command; roughed out xmpp push protocol and design

This commit is contained in:
Joey Hess 2012-11-06 00:52:35 -04:00
parent 3a40a54807
commit cb7523b9e8
5 changed files with 131 additions and 3 deletions

24
Command/XMPPGit.hs Normal file
View file

@ -0,0 +1,24 @@
{- git-annex command
-
- Copyright 2012 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Command.XMPPGit where
import Common.Annex
import Command
import Assistant.XMPP.Git
def :: [Command]
def = [noCommit $ noRepo xmppGitRelay $ dontCheck repoExists $
command "xmppgit" paramNothing seek "git to XMPP relay (internal use)"]
seek :: [CommandSeek]
seek = [withWords start]
start :: [String] -> CommandStart
start _ = do
liftIO xmppGitRelay
stop