diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs index b50f148..eb1d9ec 100644 --- a/src/Vervis/Foundation.hs +++ b/src/Vervis/Foundation.hs @@ -32,7 +32,7 @@ import Data.Text as T (pack) import Text.Jasmine.Local (discardm) import Vervis.Import.NoFoundation hiding (last) -import Vervis.Widget (breadcrumbBar) +import Vervis.Widget (breadcrumbsW) -- | The foundation datatype for your application. This can be a good place to -- keep settings and values requiring initialization before your application diff --git a/src/Vervis/Widget.hs b/src/Vervis/Widget.hs index a141581..65caf29 100644 --- a/src/Vervis/Widget.hs +++ b/src/Vervis/Widget.hs @@ -15,7 +15,7 @@ -- | Various custom widgets. module Vervis.Widget - ( breadcrumbBar + ( breadcrumbsW ) where @@ -27,7 +27,7 @@ import Yesod.Core.Widget import Vervis.Settings (widgetFile) import Vervis.Style -breadcrumbBar :: YesodBreadcrumbs site => WidgetT site IO () -breadcrumbBar = do +breadcrumbsW :: YesodBreadcrumbs site => WidgetT site IO () +breadcrumbsW = do (current, bcs) <- handlerToWidget breadcrumbs $(widgetFile "breadcrumbs")