Servant.Server.Experimental.Auth
type family AuthServerData a :: *
data AuthHandler r usr
mkAuthHandler