diff options
Diffstat (limited to 'Assistant/XMPP.hs')
| -rw-r--r-- | Assistant/XMPP.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs index d31712770..e473b5305 100644 --- a/Assistant/XMPP.hs +++ b/Assistant/XMPP.hs @@ -167,8 +167,8 @@ decodeMessage m = decode =<< gitAnnexTagInfo m fmap (ReceivePackDone . decodeExitCode) . readish . T.unpack . tagValue ] - pushdecoder a m i = Pushing - <$> (formatJID <$> messageFrom m) + pushdecoder a m' i = Pushing + <$> (formatJID <$> messageFrom m') <*> a i decodeExitCode :: Int -> ExitCode |