From 3a5969b8e831f052b287dcad2470fcf631eebfd9 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 26 Dec 2010 20:13:08 +0200
Subject: [PATCH] Exposing toWaiAppPlain

---
 Yesod/Content.hs  | 2 +-
 Yesod/Dispatch.hs | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Yesod/Content.hs b/Yesod/Content.hs
index aaf57d60..639b8db3 100644
--- a/Yesod/Content.hs
+++ b/Yesod/Content.hs
@@ -225,7 +225,7 @@ simpleContentType :: String -> String
 simpleContentType = fst . span (/= ';')
 
 -- | A default extension to mime-type dictionary.
-typeByExt :: [(String, ContentType)]
+typeByExt :: [(String, ContentType)] -- FIXME move to yesod-static
 typeByExt =
     [ ("jpg", typeJpeg)
     , ("jpeg", typeJpeg)
diff --git a/Yesod/Dispatch.hs b/Yesod/Dispatch.hs
index d36c0905..c0eb4491 100644
--- a/Yesod/Dispatch.hs
+++ b/Yesod/Dispatch.hs
@@ -19,6 +19,7 @@ module Yesod.Dispatch
     , Strings
       -- * Convert to WAI
     , toWaiApp
+    , toWaiAppPlain
 #if TEST
     , dispatchTestSuite
 #endif