git.iko.soy/typeable/wai
on master help sign in
layout only.
ebe1b0fKazu Yamamoto
warp/Network/Wai/Handler/Warp/Response.hs+2−4
compare with master
unifiedsplit
@@ -141,11 +141,9 @@ sendResponse settings ii req conn restore reqidxhdr (ResponseSource s hs withBod
141 return isPersist
141 return isPersist
142 where
142 where
143 th = threadHandle ii
143 th = threadHandle ii
144− cbody bodyFlush =
145− if needsChunked then body $= chunk else body
144+ cbody bodyFlush = if needsChunked then body $= chunk else body
146 where
145 where
147− body =
148− mapOutput (\x -> case x of
146+ body = mapOutput (\x -> case x of
149 Flush -> flush
147 Flush -> flush
150 Chunk builder -> builder)
148 Chunk builder -> builder)
151 bodyFlush
149 bodyFlush