tricorder-0.2.0.0: src/Tricorder/CLI/UI/Route.hs

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


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


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