Add OAuth2 subsite

config/routes

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

src/Vervis/Foundation.hs

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