made navbar work

also added an About page and a stub Config page.
This commit is contained in:
Joey Hess 2012-07-31 02:30:26 -04:00
parent 5fed026bcd
commit 2c8bbdf307
10 changed files with 89 additions and 27 deletions

View 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")