sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 18:34:52 +09:00
Code Issues Activity

Add OAuth2 subsite

Browse source
This commit is contained in:
fr33domlover 2020-03-28 14:28:24 +00:00
parent ac477ab739
commit 318f182245
2 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
config/routes
View file

@ -45,6 +45,7 @@
/auth/!resend ResendVerifyEmailR GET /auth/!resend ResendVerifyEmailR GET
/auth AuthR Auth getAuth /auth AuthR Auth getAuth
/oauth DvaraR Dvara getDvara
/k KeysR GET POST /k KeysR GET POST
/k/!new KeyNewR GET /k/!new KeyNewR GET

3
src/Vervis/Foundation.hs
View file

@ -144,6 +144,9 @@ type TicketDepKeyHashid = KeyHashid TicketDependency
-- This function also generates the following type synonyms: -- This function also generates the following type synonyms:
-- type Handler = HandlerFor App -- type Handler = HandlerFor App
-- type Widget = WidgetFor App () -- type Widget = WidgetFor App ()
getDvara :: App -> Dvara
getDvara = const dvara
mkYesodData "App" $(parseRoutesFile "config/routes") mkYesodData "App" $(parseRoutesFile "config/routes")
-- | A convenient synonym for creating forms. -- | A convenient synonym for creating forms.