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

Breadcrumbs use Text

Browse Source
This commit is contained in:
Michael Snoyman 2011-04-12 23:13:56 +03:00
parent a547ba0ac5
commit 69abcb344a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Yesod/Internal/Core.hs
View File

@ -377,11 +377,11 @@ data AuthResult = Authorized | AuthenticationRequired | Unauthorized Text
class YesodBreadcrumbs y where class YesodBreadcrumbs y where
-- | Returns the title and the parent resource, if available. If you return -- | Returns the title and the parent resource, if available. If you return
-- a 'Nothing', then this is considered a top-level page. -- a 'Nothing', then this is considered a top-level page.
breadcrumb :: Route y -> GHandler sub y (String, Maybe (Route y)) breadcrumb :: Route y -> GHandler sub y (Text , Maybe (Route y))
-- | Gets the title of the current page and the hierarchy of parent pages, -- | Gets the title of the current page and the hierarchy of parent pages,
-- along with their respective titles. -- along with their respective titles.
breadcrumbs :: YesodBreadcrumbs y => GHandler sub y (String, [(Route y, String)]) breadcrumbs :: YesodBreadcrumbs y => GHandler sub y (Text, [(Route y, Text)])
breadcrumbs = do breadcrumbs = do
x' <- getCurrentRoute x' <- getCurrentRoute
tm <- getRouteToMaster tm <- getRouteToMaster