ResponseBuilder constructor

2011-01-06 08:15:50 +02:00 · 2011-01-06 08:15:50 +02:00 · bf324ded19
commit bf324ded19
parent 6c3c312a48
1 changed files with 1 additions and 1 deletions
--- a/Yesod/Dispatch.hs
+++ b/Yesod/Dispatch.hs
@ -334,7 +334,7 @@ toWaiApp' y key' segments env = do
                                    Just len ->
                                        ("Content-Length", B.pack $ show len)
                                        : hs'''
-                         in W.responseBuilder s hs'''' b
+                         in W.ResponseBuilder s hs'''' b
                    ContentFile fp -> W.ResponseFile s hs''' fp
                    ContentEnum e -> W.ResponseEnumerator $ \iter ->
                        run_ $ e $$ iter s hs'''