mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

support cmdnorepo actions, also using getopt-applicative there

Browse source
This commit is contained in:
Joey Hess 2015-07-08 15:39:05 -04:00
parent 6e5c1f8db3
commit 92d8f80bff
10 changed files with 54 additions and 68 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/XMPPGit.hs
View file

@ -12,9 +12,12 @@ import Command
import Assistant.XMPP.Git
cmd :: Command
cmd = noCommit $ noRepo startNoRepo $ dontCheck repoExists $
command "xmppgit" SectionPlumbing "git to XMPP relay"
paramNothing (withParams seek)
cmd = noCommit $ dontCheck repoExists $
noRepo (parseparams startNoRepo) $
command "xmppgit" SectionPlumbing "git to XMPP relay"
paramNothing (parseparams seek)
where
parseparams = withParams
seek :: CmdParams -> CommandSeek
seek = withWords start