webapp: Repository list is now included in the dashboard, and other UI tweaks.
This commit is contained in:
parent
6c7ce8f193
commit
810a06b771
18 changed files with 77 additions and 108 deletions
|
@ -19,18 +19,16 @@ import Yesod
|
|||
import Text.Hamlet
|
||||
import Data.Text (Text)
|
||||
|
||||
data NavBarItem = DashBoard | Repositories | Configuration | About
|
||||
data NavBarItem = DashBoard | 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 = DashboardR
|
||||
navBarRoute Repositories = RepositoriesR
|
||||
navBarRoute Configuration = ConfigurationR
|
||||
navBarRoute About = AboutR
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue