module Route
  ( Route(..)
  , matchers
  , toPath
  ) where

import Effects exposing (Effects)

import RouteParser exposing (..)

type Route =
  Empty
  | Home
  | Income
  | Stat

matchers : List (Matcher Route)
matchers =
  [ static Empty ""
  , static Home "/"
  , static Income "/income"
  , static Stat "/statistics"
  ]

toPath : Route -> String
toPath route =
  case route of
    Empty -> ""
    Home -> "/"
    Income -> "/income"
    Stat -> "/statistics"