add xmppgit command; roughed out xmpp push protocol and design
This commit is contained in:
parent
3a40a54807
commit
cb7523b9e8
5 changed files with 131 additions and 3 deletions
24
Command/XMPPGit.hs
Normal file
24
Command/XMPPGit.hs
Normal 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
|
Loading…
Add table
Add a link
Reference in a new issue