Using autohead by default

This commit is contained in:
Michael Snoyman 2011-06-10 09:25:53 +03:00
parent bd67a840ef
commit 4bd89a5e10

View File

@ -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