haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ResponseBuilder constructor

Browse Source
This commit is contained in:
Michael 2011-01-06 08:15:50 +02:00
parent 6c3c312a48
commit bf324ded19
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Dispatch.hs
View File

@ -334,7 +334,7 @@ toWaiApp' y key' segments env = do
Just len -> Just len ->
("Content-Length", B.pack $ show len) ("Content-Length", B.pack $ show len)
: hs''' : hs'''
in W.responseBuilder s hs'''' b in W.ResponseBuilder s hs'''' b
ContentFile fp -> W.ResponseFile s hs''' fp ContentFile fp -> W.ResponseFile s hs''' fp
ContentEnum e -> W.ResponseEnumerator $ \iter -> ContentEnum e -> W.ResponseEnumerator $ \iter ->
run_ $ e $$ iter s hs''' run_ $ e $$ iter s hs'''