diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-09 17:33:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-09 17:33:34 -0400 |
| commit | 71cefa8e65db23d56ea32a8fbea10580ad3865d8 (patch) | |
| tree | ecec893882edbb3823f1ef2c0207393675eba73d | |
| parent | 5c928715e72b94c4fae601aebbe23fe5cd2436e3 (diff) | |
fix murderous typo
| -rw-r--r-- | Assistant/XMPP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |