mirror of
https://github.com/Start9Labs/start-os.git
synced 2026-03-26 10:21:52 +00:00
20 lines
344 B
Haskell
20 lines
344 B
Haskell
{-# LANGUAGE DeriveDataTypeable #-}
|
|
{-# LANGUAGE ViewPatterns #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
{-# LANGUAGE QuasiQuotes #-}
|
|
module Auth where
|
|
|
|
import Startlude
|
|
|
|
import Yesod.Core
|
|
|
|
data Auth = Auth
|
|
|
|
getAuth :: a -> Auth
|
|
getAuth = const Auth
|
|
|
|
mkYesodSubData "Auth" [parseRoutes|
|
|
/login LoginR POST
|
|
/logout LogoutR POST
|
|
|]
|