tricorder-0.1.1.0: src/Tricorder/UI/Route.hs

module Tricorder.UI.Route
    ( Route (..)
    , name
    ) where


data Route
    = Main
    | Help
    | DaemonInfo
    | Tests
    deriving stock (Bounded, Enum, Eq)


name :: Route -> Text
name = \case
    Main -> "Dashboard"
    Help -> "Help"
    DaemonInfo -> "Daemon info"
    Tests -> "Tests"