diff --git a/config/routes b/config/routes
index 761397e..3465381 100644
--- a/config/routes
+++ b/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
diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index be62800..df8d428 100644
--- a/src/Vervis/Foundation.hs
+++ b/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.