diff options
Diffstat (limited to 'Assistant/XMPP.hs')
| -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 e74705021..cc0343abf 100644 --- a/Assistant/XMPP.hs +++ b/Assistant/XMPP.hs @@ -195,7 +195,7 @@ decodeMessage m = decode =<< gitAnnexTagInfo m <*> a i gen c i = c . toUUID <$> headMaybe (words (T.unpack (tagValue i))) seqgen c i = do - packet <- decodeTagContent $ tagElement i + packet <- decodeTagContent $ tagElement i let seqnum = fromMaybe 0 $ readish $ T.unpack $ tagValue i return $ c seqnum packet shasgen c i = do |