client/src/Model/Route.hs


1
2
3
4
5
6
7
8
9
10
11

module Model.Route
  ( Route(..)
  ) where

data Route
  = RootRoute
  | IncomeRoute
  | CategoryRoute
  | StatisticsRoute
  | NotFoundRoute
  deriving (Eq, Show)