From 80f0b3cd707703470d73df1c7319466c1f063de9 Mon Sep 17 00:00:00 2001
From: Aleksey Uimanov <s9gf4ult@gmail.com>
Date: Wed, 7 Dec 2016 14:04:51 +0500
Subject: [PATCH] Add comments and bump minor version to 1.4.29

---
 yesod-core/Yesod/Core/Dispatch.hs | 9 +++++++++
 yesod-core/yesod-core.cabal       | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/yesod-core/Yesod/Core/Dispatch.hs b/yesod-core/Yesod/Core/Dispatch.hs
index 5d5c5193..17674268 100644
--- a/yesod-core/Yesod/Core/Dispatch.hs
+++ b/yesod-core/Yesod/Core/Dispatch.hs
@@ -96,6 +96,11 @@ toWaiAppPlain site = do
             , 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 yre req =
     case cleanPath site $ W.pathInfo req of
@@ -240,6 +245,10 @@ warpEnv site = do
                 Nothing -> error $ "warpEnv: invalid PORT environment variable: " ++ show portS
                 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 = mkAutoUpdate defaultUpdateSettings
   { updateAction = getCurrentMaxExpiresRFC1123
diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal
index a975d0fe..f2a34d91 100644
--- a/yesod-core/yesod-core.cabal
+++ b/yesod-core/yesod-core.cabal
@@ -1,5 +1,5 @@
 name:            yesod-core
-version:         1.4.28
+version:         1.4.29
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>