204/304 responses should not have content-length

Should fix #242 for 0.9.
snapframework · Aug 20, 2015 · 10f4461 · 10f4461
1 parent 9bcb97d
commit 10f4461
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/snap-core.cabal b/snap-core.cabal
@@ -1,5 +1,5 @@
 name:           snap-core
-version:        0.9.7.2
+version:        0.9.8.0
 synopsis:       Snap: A Haskell Web Framework (core interfaces and types)
 
 description:

diff --git a/src/Snap/Internal/Types.hs b/src/Snap/Internal/Types.hs
@@ -978,7 +978,7 @@ fixupResponse req rsp = {-# SCC "fixupResponse" #-} do
     handle304 :: Response -> Response
     handle304 r = setResponseBody (enumBuilder mempty) $
                   updateHeaders (H.delete "Transfer-Encoding") $
-                  setContentLength 0 r
+                  clearContentLength r
 {-# INLINE fixupResponse #-}