webapp: Move sidebar to the right hand side of the screen.
This commit is contained in:
parent
78adaac3e9
commit
b7800eab24
3 changed files with 5 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue