Отключить регистрационный маршрут в Yesod.Auth.Email

Question

Как отключить маршрут регистрации (registerR :: AuthRoute) в Yesod.Auth.Email плагине? Я хочу отключить только возможность регистрации через определенный промежуток времени.

Answer 1

Вы можете переопределить методы addUnverified и registerHandler (в классном классе YesodAuthEmail).

instance YesodAuthEmail App where 
    addUnverified _ _ = 
     sendResponseStatus status503 ("User registration is unavailable now" :: Text) 

    registerHandler = 
     sendResponseStatus status503 ("User registration is unavailable now" :: Text) 

https://hackage.haskell.org/package/yesod-auth-1.4.12/docs/Yesod-Auth-Email.html