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

doh't use "def" for command definitions, it conflicts with Data.Default.def

Browse source
This commit is contained in:
Joey Hess 2014-10-14 14:20:10 -04:00
parent db9121ecee
commit 59f88558d5
86 changed files with 267 additions and 267 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Command/XMPPGit.hs
View file

@ -11,8 +11,8 @@ import Common.Annex
import Command
import Assistant.XMPP.Git
def :: [Command]
def = [noCommit $ noRepo startNoRepo $ dontCheck repoExists $
cmd :: [Command]
cmd = [noCommit $ noRepo startNoRepo $ dontCheck repoExists $
command "xmppgit" paramNothing seek
SectionPlumbing "git to XMPP relay"]
@ -37,9 +37,9 @@ gitRemoteHelper = do
respond []
where
expect s = do
cmd <- getLine
unless (cmd == s) $
error $ "git-remote-helpers protocol error: expected: " ++ s ++ ", but got: " ++ cmd
gitcmd <- getLine
unless (gitcmd == s) $
error $ "git-remote-helpers protocol error: expected: " ++ s ++ ", but got: " ++ gitcmd
respond l = do
mapM_ putStrLn l
putStrLn ""