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

fix reading of transfer info files with a bytesComplete value

Browse source
This commit is contained in:
Joey Hess 2012-09-20 16:40:01 -04:00
parent a6504e4192
commit 06ed6ceac4
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Logs/Transfer.hs
View file

@ -239,8 +239,8 @@ readTransferInfo mpid s = TransferInfo
<*> pure (if null filename then Nothing else Just filename) <*> pure (if null filename then Nothing else Just filename)
<*> pure False <*> pure False
where where
(bits, filebits) = splitAt 1 $ lines s (firstline, filename) = separate (== '\n') s
filename = join "\n" filebits bits = split " " firstline
numbits = length bits numbits = length bits
time = if numbits > 0 time = if numbits > 0
then Just <$> parsePOSIXTime (bits !! 0) then Just <$> parsePOSIXTime (bits !! 0)