warp 0.4.1 → 0.4.1.1

raw patch · 2 files changed

+8/−3 lines, 2 files

Files

• Network/Wai/Handler/Warp.hs +7/−2
• warp.cabal +1/−1

@@ -61,7 +61,7 @@ import qualified Network.Socket.ByteString as Sock import Control.Exception     ( bracket, finally, Exception, SomeException, catch-    , fromException+    , fromException, AsyncException (ThreadKilled)     ) import Control.Concurrent (forkIO) import qualified Data.Char as C@@ -437,12 +437,17 @@     , settingsOnException = \e ->         case fromException e of             Just x -> go x-            Nothing -> hPutStrLn stderr $ show e+            Nothing ->+                if go' $ fromException e+                    then hPutStrLn stderr $ show e+                    else return ()     , settingsTimeout = 30     }   where     go :: InvalidRequest -> IO ()     go _ = return ()+    go' (Just ThreadKilled) = False+    go' _ = True  takeHeaders :: E.Iteratee ByteString IO [ByteString] takeHeaders = do

@@ -1,5 +1,5 @@ Name:                warp-Version:             0.4.1+Version:             0.4.1.1 Synopsis:            A fast, light-weight web server for WAI applications. License:             BSD3 License-file:        LICENSE