From 4bd89a5e102c70ae14e38afd3598793408ee032b Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 10 Jun 2011 09:25:53 +0300
Subject: [PATCH] Using autohead by default

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

diff --git a/Yesod/Dispatch.hs b/Yesod/Dispatch.hs
index c77e233e..4d352bf6 100644
--- a/Yesod/Dispatch.hs
+++ b/Yesod/Dispatch.hs
@@ -36,6 +36,7 @@ import Language.Haskell.TH.Syntax
 import qualified Network.Wai as W
 import Network.Wai.Middleware.Jsonp
 import Network.Wai.Middleware.Gzip
+import Network.Wai.Middleware.Autohead
 
 import Data.ByteString.Lazy.Char8 ()
 
@@ -166,6 +167,7 @@ toWaiApp y = do
     a <- toWaiAppPlain y
     return $ gzip False
            $ jsonp
+           $ autohead
              a
 
 -- | Convert the given argument into a WAI application, executable with any WAI