{-|
Description: Route table;  isolated to contain the scope of LANGUAGE extensions.
Copyright: (c) Michael Mounteney, 2015
License: BSD 3 clause
Maintainer: the project name, all lower case, at landcroft dot com
Stability: experimental
Portability: undefined
-}


{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}


module RouteData (routeData) where


import qualified Yesod.Core as YC
import qualified Yesod.Auth as YA ()
import qualified Yesod.Routes.TH.Types as YT


-- | Routing table.
routeData :: [YT.ResourceTree String]
routeData = [YC.parseRoutes|
  / HomeR GET POST
  /favicon.ico IconR GET
  /score ScoreR GET POST
  /notice/#Text NoticeR GET POST
  /review/#Text ReviewR GET
  /auth AuthR YA.Auth YA.getAuth
  |]