mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

avoid warning

Browse source
This commit is contained in:
Joey Hess 2013-04-13 15:46:24 -04:00
parent 51b150dda3
commit dbb791a13b
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Assistant/XMPP.hs
View file

@ -171,8 +171,8 @@ decodeMessage m = decode =<< gitAnnexTagInfo m
<*> a i <*> a i
gen c i = do gen c i = do
packet <- decodeTagContent $ tagElement i packet <- decodeTagContent $ tagElement i
let sequence = fromMaybe 0 $ readish $ T.unpack $ tagValue i let seqnum = fromMaybe 0 $ readish $ T.unpack $ tagValue i
return $ c sequence packet return $ c seqnum packet
decodeExitCode :: Int -> ExitCode decodeExitCode :: Int -> ExitCode
decodeExitCode 0 = ExitSuccess decodeExitCode 0 = ExitSuccess