From dbb791a13b38fb4f7d782fab3bc141bc8babbbc2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 13 Apr 2013 15:46:24 -0400
Subject: [PATCH] avoid warning

---
 Assistant/XMPP.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs
index 01d42ba9bd..9654fdb4ba 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