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

Merge pull request #130 from oscarpica/master

Browse Source 
Comment rewording on 'joinPath'
This commit is contained in:
Michael Snoyman 2011-09-19 03:30:24 -07:00
commit f6b59159e4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-core/Yesod/Internal/Core.hs
View File

@ -205,8 +205,9 @@ class RenderRoute (Route a) => Yesod a where
where where
corrected = filter (not . TS.null) s corrected = filter (not . TS.null) s
-- | Join the pieces of a path together into an absolute URL. This should -- | Builds an absolute URL by concatenating the application root with the
-- be the inverse of 'splitPath'. -- 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 joinPath :: a
-> TS.Text -- ^ application root -> TS.Text -- ^ application root
-> [TS.Text] -- ^ path pieces -> [TS.Text] -- ^ path pieces