Exposing toWaiAppPlain

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)

Yesod/Dispatch.hs

@@ -19,6 +19,7 @@ module Yesod.Dispatch
     , Strings
       -- * Convert to WAI
     , toWaiApp
+    , toWaiAppPlain
 #if TEST
     , dispatchTestSuite
 #endif