Add comments and bump minor version to 1.4.29
This commit is contained in:
parent
47ef36012d
commit
80f0b3cd70
@ -96,6 +96,11 @@ toWaiAppPlain site = do
|
|||||||
, yreGetMaxExpires = getMaxExpires
|
, yreGetMaxExpires = getMaxExpires
|
||||||
}
|
}
|
||||||
|
|
||||||
|
-- | Pure low level function to construct WAI application. Usefull
|
||||||
|
-- when you need not standard way to run your app, or want to embed it
|
||||||
|
-- inside another app.
|
||||||
|
--
|
||||||
|
-- @since 1.4.29
|
||||||
toWaiAppYre :: YesodDispatch site => YesodRunnerEnv site -> W.Application
|
toWaiAppYre :: YesodDispatch site => YesodRunnerEnv site -> W.Application
|
||||||
toWaiAppYre yre req =
|
toWaiAppYre yre req =
|
||||||
case cleanPath site $ W.pathInfo req of
|
case cleanPath site $ W.pathInfo req of
|
||||||
@ -240,6 +245,10 @@ warpEnv site = do
|
|||||||
Nothing -> error $ "warpEnv: invalid PORT environment variable: " ++ show portS
|
Nothing -> error $ "warpEnv: invalid PORT environment variable: " ++ show portS
|
||||||
Just port -> warp port site
|
Just port -> warp port site
|
||||||
|
|
||||||
|
-- | Default constructor for 'yreGetMaxExpires' field. Low level
|
||||||
|
-- function for simple manual construction of 'YesodRunnerEnv'.
|
||||||
|
--
|
||||||
|
-- @since 1.4.29
|
||||||
getGetMaxExpires :: IO (IO Text)
|
getGetMaxExpires :: IO (IO Text)
|
||||||
getGetMaxExpires = mkAutoUpdate defaultUpdateSettings
|
getGetMaxExpires = mkAutoUpdate defaultUpdateSettings
|
||||||
{ updateAction = getCurrentMaxExpiresRFC1123
|
{ updateAction = getCurrentMaxExpiresRFC1123
|
||||||
|
|||||||
@ -1,5 +1,5 @@
|
|||||||
name: yesod-core
|
name: yesod-core
|
||||||
version: 1.4.28
|
version: 1.4.29
|
||||||
license: MIT
|
license: MIT
|
||||||
license-file: LICENSE
|
license-file: LICENSE
|
||||||
author: Michael Snoyman <michael@snoyman.com>
|
author: Michael Snoyman <michael@snoyman.com>
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user