diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-13 15:46:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-13 15:46:24 -0400 |
| commit | 23ee55ceb22d76c5122aa36bda5b1e2a50c76acd (patch) | |
| tree | 03db782c63cfee515fe8eaea924ae1b81589a914 /Assistant/XMPP.hs | |
| parent | 2fff162be91e24fd69f012476d5f01d06de0fa2f (diff) | |
avoid warning
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 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 |