2012-07-31 06:30:26 +00:00
|
|
|
{- 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
|
2012-08-04 00:40:34 +00:00
|
|
|
sideBarDisplay
|
2012-07-31 06:30:26 +00:00
|
|
|
setTitle "About git-annex"
|
|
|
|
|
$(widgetFile "documentation/about")
|
