{-# LANGUAGE TemplateHaskell #-}

module Server.Frontend (Frontend(..), Handler) where

import           Server.Frontend.Gtfs
import           Server.Frontend.OnboardUnit
import           Server.Frontend.Routes
import           Server.Frontend.SpaceTime
import           Server.Frontend.Ticker
import           Server.Frontend.Tickets

import           Yesod
import           Yesod.Auth


mkYesodDispatch "Frontend" resourcesFrontend


getRootR :: Handler Html
getRootR = redirect TicketsR