From bf324ded19fd69e3a8e9e73ac91b9ce5380b3b5f Mon Sep 17 00:00:00 2001
From: Michael <michael@snoyman.com>
Date: Thu, 6 Jan 2011 08:15:50 +0200
Subject: [PATCH] ResponseBuilder constructor

---
 Yesod/Dispatch.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Yesod/Dispatch.hs b/Yesod/Dispatch.hs
index 40034246..695abe99 100644
--- 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'''