Channels API

2018-08-05 23:13:49 +03:00
parent a4129ae5cf
commit f8f35007bf
10 changed files with 113 additions and 9 deletions
--- a/src/API/Users.hs
+++ b/src/API/Users.hs
@ -41,7 +41,7 @@ instance FromForm RegisterForm
 instance ToForm RegisterForm


-type API = Auth '[SA.BasicAuth] SafeUser :> "login" :> Get '[JSON] LoginStatus
+type API = Auth '[SA.BasicAuth, SA.JWT] SafeUser :> "login" :> Get '[JSON] LoginStatus
      :<|> "register" :> ReqBody '[JSON, FormUrlEncoded] RegisterForm :> Post '[JSON] RegisterStatus

 handler :: ServerT API AppM