fix math error that caused resumes to always fail

This commit is contained in:
Joey Hess 2016-12-07 15:36:39 -04:00
parent db79b69aa0
commit 0541f19bea
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
2 changed files with 3 additions and 2 deletions

View file

@ -125,4 +125,4 @@ runLocal runmode runner a = case a of
hSeek h AbsoluteSeek o
L.hPut h b
sz <- getFileSize dest
return (toInteger sz == l)
return (toInteger sz == l + o)