mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

split repolist out of configuration, into its own tab (temporarily)

Browse source
This commit is contained in:
Joey Hess 2013-03-12 21:51:03 -04:00
parent 7ea9b887bd
commit 8221c2b4ed
8 changed files with 202 additions and 190 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Assistant/WebApp/Page.hs
View file

@ -19,21 +19,23 @@ import Yesod
import Text.Hamlet
import Data.Text (Text)
data NavBarItem = DashBoard | Configuration | About
deriving (Eq)
data NavBarItem = DashBoard | Repositories | Configuration | About
deriving (Eq, Ord, Enum, Bounded)
navBarName :: NavBarItem -> Text
navBarName DashBoard = "Dashboard"
navBarName Repositories = "Repositories"
navBarName Configuration = "Configuration"
navBarName About = "About"
navBarRoute :: NavBarItem -> Route WebApp
navBarRoute DashBoard = HomeR
navBarRoute Repositories = RepositoriesR
navBarRoute Configuration = ConfigurationR
navBarRoute About = AboutR
defaultNavBar :: [NavBarItem]
defaultNavBar = [DashBoard, Configuration, About]
defaultNavBar = [minBound .. maxBound]
firstRunNavBar :: [NavBarItem]
firstRunNavBar = [Configuration, About]