fix warning of unused var
commitf46a03a81aa312603b99c20e129e3e3694bd5fff
authorGreg Weber <greg@gregweber.info>
dateMon 13 Feb 2012, 06:41 (15 years ago)
parent0c93546
warp/Network/Wai/Handler/Warp.hs+1−1
@@ -521,7 +521,7 @@ sendResponse th req conn r = sendResponse' r
521521 let cl = filePartByteCount part
522522 return $ Right $ addClToHeaders cl
523523 case eres of
524− Left (e :: SomeException) -> sendResponse' $ responseLBS
524+ Left (_ :: SomeException) -> sendResponse' $ responseLBS
525525 H.status404
526526 [("Content-Type", "text/plain")]
527527 "File not found"