adminLayout :: Text -> Widget -> Handler Html
adminLayout defaultMsg widget = do
    mmsg <- getMessage
    muser <- fmap entityVal <$> maybeAuth
    siteMenu <- pageBody <$> widgetToPageContent $(widgetFile "site-menu")
    pc <- widgetToPageContent widget
    withUrlRenderer $(hamletFile "templates/site-layout-admin.hamlet")
adminLayout :: Text -> Widget -> Handler Html
adminLayout defaultMsg widget = do
    mmsg <- getMessage
    muser <- fmap entityVal <$> maybeAuth
    siteMenu <- pageBody <$> widgetToPageContent $(widgetFile "site-menu")
    pc <- widgetToPageContent widget
    withUrlRenderer $(hamletFile "templates/site-layout-admin.hamlet")
adminLayout defaultMsg widget = do
    mmsg <- getMessage
    muser <- fmap entityVal <$> maybeAuth
    siteMenu <- pageBody <$> widgetToPageContent $(widgetFile "site-menu")
    pc <- widgetToPageContent widget
    withUrlRenderer $(hamletFile "templates/site-layout-admin.hamlet")