mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Page.hs
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