diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-31 02:30:26 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-31 02:30:26 -0400 |
commit | 2c8bbdf307899683ea8e2d934ec0ed2bfa3bc3d4 (patch) | |
tree | 072eb160445f0c3cb6ba5db3448aa7483f15a4e6 /Assistant/WebApp/Configurators.hs | |
parent | 5fed026bcdaa0724acd2640193e341bb8358980b (diff) |
made navbar work
also added an About page and a stub Config page.
Diffstat (limited to 'Assistant/WebApp/Configurators.hs')
-rw-r--r-- | Assistant/WebApp/Configurators.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index e3f0275d9..47a9b687e 100644 --- a/Assistant/WebApp/Configurators.hs +++ b/Assistant/WebApp/Configurators.hs @@ -44,13 +44,12 @@ introDisplay ident = do counter = map show ([1..] :: [Int]) getConfigR :: Handler RepHtml -getConfigR = defaultLayout $ do +getConfigR = bootstrap (Just Config) $ do sideBarDisplay setTitle "Configuration" - [whamlet|<a href="@{HomeR}">main|] + $(widgetFile "configurators/main") getAddRepositoryR :: Handler RepHtml -getAddRepositoryR = defaultLayout $ do +getAddRepositoryR = bootstrap (Just Config) $ do sideBarDisplay setTitle "Add repository" - [whamlet|<a href="@{HomeR}">main|] |