@@ -58,9 +58,9 @@ runTLS tset set app = do
5858 let conn = Connection
5959 { connSendMany = TLS.sendData ctx . L.fromChunks
6060 , connSendAll = TLS.sendData ctx . L.fromChunks . return
61− , connSendFile = \fp offset len _th headers -> C.runResourceT $ do
61+ , connSendFile = \fp offset len _th headers -> do
6262 TLS.sendData ctx $ L.fromChunks headers
63− sourceFileRange fp (Just offset) (Just len) C.$$ CL.mapM_ (TLS.sendData ctx . L.fromChunks . return)
63+ C.runResourceT $ sourceFileRange fp (Just offset) (Just len) C.$$ CL.mapM_ (TLS.sendData ctx . L.fromChunks . return)
6464 , connClose = do
6565 TLS.bye ctx
6666 hClose h