snap-server 0.2.5 → 0.2.6

raw patch · 3 files changed

+5/−5 lines, 3 files

Files

• snap-server.cabal +1/−1
• src/Snap/Internal/Http/Parser.hs +1/−1
• src/Snap/Internal/Http/Server.hs +3/−3

@@ -1,5 +1,5 @@ name:           snap-server-version:        0.2.5+version:        0.2.6 synopsis:       A fast, iteratee-based, epoll-enabled web server for the Snap Framework description:   This is the first developer prerelease of the Snap framework.  Snap is a

@@ -116,7 +116,7 @@ writeChunkedTransferEncoding _buf enum it = do     i'    <- wrap it     --(i,_) <- unsafeBufferIterateeWithBuffer buf i'-    i <- bufferIteratee i'+    (i,_) <- bufferIteratee i'     enum i    where

@@ -306,10 +306,10 @@      -- (writeEnd, cancelBuffering) <-     --     liftIO $ I.unsafeBufferIterateeWithBuffer ibuf writeEnd'-    -- let killBuffer = writeIORef cancelBuffering True -    writeEnd <- liftIO $ I.bufferIteratee writeEnd'-    let killBuffer = return ()+    (writeEnd, cancelBuffering) <- liftIO $ I.bufferIteratee writeEnd'+    let killBuffer = writeIORef cancelBuffering True+      liftIO $ debug "Server.httpSession: entered"     mreq  <- receiveRequest