From dc14783c818cbe3cd198e122f3481ba5b8ce2cd9 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Mon, 20 Aug 2012 13:13:46 -0300
Subject: [PATCH] yesod-core: On handlerToIO, avoid 'sourceList []'.

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

diff --git a/yesod-core/Yesod/Handler.hs b/yesod-core/Yesod/Handler.hs
index 89231650..811d8f54 100644
--- a/yesod-core/Yesod/Handler.hs
+++ b/yesod-core/Yesod/Handler.hs
@@ -178,7 +178,6 @@ import Control.Exception.Lifted (catch)
 import Control.Monad.Trans.Control
 import Control.Monad.Trans.Resource
 import Control.Monad.Base
-import Data.Conduit.List (sourceList)
 import Yesod.Routes.Class
 import Data.Word (Word64)
 import Language.Haskell.TH.Syntax (Loc)
@@ -436,7 +435,7 @@ handlerToIO =
     -- Let go of the request body, cache and response headers.
     let oldReq    = handlerRequest oldHandlerData
         oldWaiReq = reqWaiRequest oldReq
-        newWaiReq = oldWaiReq { W.requestBody = sourceList [] }
+        newWaiReq = oldWaiReq { W.requestBody = mempty }
         newReq    = oldReq { reqWaiRequest = newWaiReq
                            , reqBodySize   = 0 }
     newState <- liftIO $ do