@@ -521,7 +521,7 @@ sendResponse th req conn r = sendResponse' r
521 let cl = filePartByteCount part
521 let cl = filePartByteCount part
522 return $ Right $ addClToHeaders cl
522 return $ Right $ addClToHeaders cl
523 case eres of
523 case eres of
524− Left (e :: SomeException) -> sendResponse' $ responseLBS
524+ Left (_ :: SomeException) -> sendResponse' $ responseLBS
525 H.status404
525 H.status404
526 [("Content-Type", "text/plain")]
526 [("Content-Type", "text/plain")]
527 "File not found"
527 "File not found"