webapp: Move sidebar to the right hand side of the screen.

This commit is contained in:
Joey Hess 2013-10-21 18:05:52 -04:00
parent 78adaac3e9
commit b7800eab24
3 changed files with 5 additions and 1 deletions

View file

@ -45,8 +45,8 @@ selectNavBar = ifM inFirstRun (return firstRunNavBar, return defaultNavBar)
page :: Hamlet.Html -> Maybe NavBarItem -> Widget -> Handler Html
page title navbaritem content = customPage navbaritem $ do
setTitle title
sideBarDisplay
content
sideBarDisplay
{- A custom page, with no title or sidebar set. -}
customPage :: Maybe NavBarItem -> Widget -> Handler Html