    {-# LANGUAGE QuasiQuotes, TypeFamilies, TemplateHaskell #-}
    {-# LANGUAGE FlexibleContexts #-}
    {-# LANGUAGE FlexibleInstances #-}
    {-# LANGUAGE MultiParamTypeClasses #-}
    {-# LANGUAGE RankNTypes #-}
    {-# LANGUAGE OverloadedStrings #-}
    {-# LANGUAGE ViewPatterns #-}
    module Yesod.Auth.Routes where

    import Yesod.Core
    import Data.Text (Text)

    data Auth = Auth

    mkYesodSubData "Auth" [parseRoutes|
    /check                 CheckR      GET
    /login                 LoginR      GET
    /logout                LogoutR     GET POST
    /page/#Text/*Texts     PluginR
    |]