made navbar work
also added an About page and a stub Config page.
This commit is contained in:
parent
5fed026bcd
commit
2c8bbdf307
10 changed files with 89 additions and 27 deletions
22
Assistant/WebApp/Documentation.hs
Normal file
22
Assistant/WebApp/Documentation.hs
Normal file
|
@ -0,0 +1,22 @@
|
|||
{- git-annex assistant webapp documentation
|
||||
-
|
||||
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings, RankNTypes #-}
|
||||
|
||||
module Assistant.WebApp.Documentation where
|
||||
|
||||
import Assistant.WebApp
|
||||
import Assistant.WebApp.SideBar
|
||||
import Utility.Yesod
|
||||
|
||||
import Yesod
|
||||
|
||||
getAboutR :: Handler RepHtml
|
||||
getAboutR = bootstrap (Just About) $ do
|
||||
sideBarDisplay
|
||||
setTitle "About git-annex"
|
||||
$(widgetFile "documentation/about")
|
Loading…
Add table
Add a link
Reference in a new issue