Merge branch 'master' into io-streams

snapframework · Mar 9, 2013 · 6f3a45d · 6f3a45d
2 parents 15c245b + 4286072
commit 6f3a45d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Snap/Internal/Types.hs b/src/Snap/Internal/Types.hs
@@ -966,7 +966,7 @@ fixupResponse req rsp = {-# SCC "fixupResponse" #-} do
     handle304 :: Response -> Response
     handle304 r = setResponseBody (return . id) $
                   updateHeaders (H.delete "Transfer-Encoding") $
-                  setContentLength 0 r
+                  clearContentLength r
 {-# INLINE fixupResponse #-}