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

import Effects exposing (Effects)

import RouteParser exposing (..)

type Route =
  Empty
  | Home
  | User

matchers : List (Matcher Route)
matchers =
  [ static Empty ""
  , static Home "/"
  , static User "/user"
  ]

toPath : Route -> String
toPath route =
  case route of
    Empty -> ""
    Home -> "/"
    User -> "/user"