haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Exposing toWaiAppPlain

Browse Source
This commit is contained in:
Michael Snoyman 2010-12-26 20:13:08 +02:00
parent 0c946de756
commit 3a5969b8e8
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Yesod/Content.hs
View File

@ -225,7 +225,7 @@ simpleContentType :: String -> String
simpleContentType = fst . span (/= ';') simpleContentType = fst . span (/= ';')
-- | A default extension to mime-type dictionary. -- | A default extension to mime-type dictionary.
typeByExt :: [(String, ContentType)] typeByExt :: [(String, ContentType)] -- FIXME move to yesod-static
typeByExt = typeByExt =
[ ("jpg", typeJpeg) [ ("jpg", typeJpeg)
, ("jpeg", typeJpeg) , ("jpeg", typeJpeg)

1
Yesod/Dispatch.hs
View File

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