20 lines
521 B
Haskell
20 lines
521 B
Haskell
{-# LANGUAGE QuasiQuotes, TypeFamilies, TemplateHaskell #-}
|
|
{-# LANGUAGE FlexibleContexts #-}
|
|
{-# LANGUAGE FlexibleInstances #-}
|
|
{-# LANGUAGE MultiParamTypeClasses #-}
|
|
{-# LANGUAGE RankNTypes #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE DeriveDataTypeable #-}
|
|
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
|
|
|]
|