From bd617a846ebe8f50b65f2500147f1f5271320852 Mon Sep 17 00:00:00 2001 From: Oscar Picasso Date: Sun, 11 Sep 2011 17:47:21 -0400 Subject: [PATCH] reworded 'joinPath' comments --- yesod-core/Yesod/Internal/Core.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/yesod-core/Yesod/Internal/Core.hs b/yesod-core/Yesod/Internal/Core.hs index 603c0231..ce0c4910 100644 --- a/yesod-core/Yesod/Internal/Core.hs +++ b/yesod-core/Yesod/Internal/Core.hs @@ -205,8 +205,9 @@ class RenderRoute (Route a) => Yesod a where where corrected = filter (not . TS.null) s - -- | Join the pieces of a path together into an absolute URL. This should - -- be the inverse of 'splitPath'. + -- | Builds an absolute URL by concatenating the application root with the + -- pieces of a path and a query string, if any. + -- Note that the pieces of the path have been previously cleaned up by 'cleanPath'. joinPath :: a -> TS.Text -- ^ application root -> [TS.Text] -- ^ path pieces