@@ -296,7 +296,7 @@ fillFileBodyGetNext Connection{connWriteBuffer,connBufferSize}
296296 (start, bytes) <- fileStartEnd path mpart
297297 -- fixme: how to close Handle? GC does it at this moment.
298298 hdl <- IO.openBinaryFile path IO.ReadMode
299− IO.hSeek h IO.AbsoluteSeek start
299+ IO.hSeek hdl IO.AbsoluteSeek start
300300 len <- IO.hGetBufSome hdl datBuf (mini room bytes)
301301 let bytes' = bytes - fromIntegral len
302302 -- fixme: connWriteBuffer connBufferSize