rename api

This commit is contained in:
nek0 2019-09-09 12:52:30 +02:00
parent 564d1ee79d
commit 12b8bf393c

View file

@ -52,9 +52,9 @@ main = do
app :: ReadState -> Application
-- app conn = serveWithContext userApi genAuthServerContext (users conn)
app initState =
serveWithContext userApi (genAuthServerContext (rsConnection initState)) $
serveWithContext mateApi (genAuthServerContext (rsConnection initState)) $
hoistServerWithContext
userApi
mateApi
authProxy
(`runReaderT` initState)
( authGet :<|>
@ -84,8 +84,8 @@ app initState =
avatarList
)
userApi :: Proxy MateAPI
userApi = Proxy
mateApi :: Proxy MateAPI
mateApi = Proxy
authProxy :: Proxy '[ AuthHandler Request (Maybe Int) ]
authProxy = Proxy