From 71cefa8e65db23d56ea32a8fbea10580ad3865d8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 9 Nov 2012 17:33:34 -0400 Subject: fix murderous typo --- Assistant/XMPP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Assistant/XMPP.hs') diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs index 68da087a6..02d4c10c6 100644 --- a/Assistant/XMPP.hs +++ b/Assistant/XMPP.hs @@ -182,7 +182,7 @@ decodeSendPackOutput t m = SendPackOutput <*> decodeTagContent t receivePackDone :: ExitCode -> JID -> JID -> Message -receivePackDone = gitAnnexMessage . gitAnnexTag receivePackAttr . T.pack . show . toi +receivePackDone = gitAnnexMessage . gitAnnexTag receivePackDoneAttr . T.pack . show . toi where toi (ExitSuccess) = 0 toi (ExitFailure i) = i -- cgit v1.2.3