git.iko.soy/typeable/wai
on master help sign in
layout only.
commitebe1b0f620116bb9f68eced52780cd3e8830296b authorKazu Yamamoto <kazu@iij.ad.jp> dateWed 30 Oct 2013, 12:02 (13 years ago) parent8d2e9d4
1 file changed+2−4
compare with master
unifiedsplit
warp/Network/Wai/Handler/Warp/Response.hs+2−4
warp/Network/Wai/Handler/Warp/Response.hs+2−4
@@ -141,11 +141,9 @@ sendResponse settings ii req conn restore reqidxhdr (ResponseSource s hs withBod
141141 return isPersist
142142 where
143143 th = threadHandle ii
144− cbody bodyFlush =
145− if needsChunked then body $= chunk else body
144+ cbody bodyFlush = if needsChunked then body $= chunk else body
146145 where
147− body =
148− mapOutput (\x -> case x of
146+ body = mapOutput (\x -> case x of
149147 Flush -> flush
150148 Chunk builder -> builder)
151149 bodyFlush