summaryrefslogtreecommitdiff
path: root/Assistant/XMPP.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-13 15:46:24 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-13 15:46:24 -0400
commit23ee55ceb22d76c5122aa36bda5b1e2a50c76acd (patch)
tree03db782c63cfee515fe8eaea924ae1b81589a914 /Assistant/XMPP.hs
parent2fff162be91e24fd69f012476d5f01d06de0fa2f (diff)
avoid warning
Diffstat (limited to 'Assistant/XMPP.hs')
-rw-r--r--Assistant/XMPP.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs
index 01d42ba9b..9654fdb4b 100644
--- a/Assistant/XMPP.hs
+++ b/Assistant/XMPP.hs
@@ -171,8 +171,8 @@ decodeMessage m = decode =<< gitAnnexTagInfo m
<*> a i
gen c i = do
packet <- decodeTagContent $ tagElement i
- let sequence = fromMaybe 0 $ readish $ T.unpack $ tagValue i
- return $ c sequence packet
+ let seqnum = fromMaybe 0 $ readish $ T.unpack $ tagValue i
+ return $ c seqnum packet
decodeExitCode :: Int -> ExitCode
decodeExitCode 0 = ExitSuccess