From 410321f7ca5cc3659101c4e32d08f65bb4132752 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 2 Feb 2012 12:23:25 +0200
Subject: [PATCH] Match wai changes for parseRequestBody

---
 yesod-core/Yesod/Handler.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/yesod-core/Yesod/Handler.hs b/yesod-core/Yesod/Handler.hs
index 4f17e0f4..016eca7c 100644
--- a/yesod-core/Yesod/Handler.hs
+++ b/yesod-core/Yesod/Handler.hs
@@ -168,8 +168,6 @@ import Data.Typeable (Typeable)
 import qualified Data.IORef as I
 import Control.Monad.Trans.Resource
 import Control.Exception.Lifted (catch)
-import Network.Wai (requestBody)
-import Data.Conduit (($$))
 import Control.Monad.Trans.Control
 import Control.Monad.Base
 import Yesod.Routes.Class
@@ -325,9 +323,8 @@ runRequestBody = do
 
 rbHelper :: W.Request -> ResourceT IO RequestBodyContents
 rbHelper req =
-    (map fix1 *** map fix2) <$> (requestBody req $$ iter)
+    (map fix1 *** map fix2) <$> (NWP.parseRequestBody NWP.lbsBackEnd req)
   where
-    iter = NWP.parseRequestBody NWP.lbsBackEnd req
     fix1 = go *** go
     fix2 (x, NWP.FileInfo a b c) =
         (go x, FileInfo (go a) (go b) c)