From 12b8bf393c906da58e3247c4c49eb76844dc97fa Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 9 Sep 2019 12:52:30 +0200 Subject: [PATCH] rename api --- app/Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index 56d15c1..b003470 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -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