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