Update README.md
[gargantext.git] / src / Gargantext / API / Server.hs
index 2585458eff10f221fdbd4c47a9d3dd24c971f85a..4a567606505a5a9de37d2c3d31253502b9a92890 100644 (file)
@@ -27,8 +27,10 @@ import qualified Paths_gargantext           as PG -- cabal magic build module
 import qualified Gargantext.API.Public      as Public
 
 import Gargantext.API.Admin.Auth.Types (AuthContext)
-import Gargantext.API.Admin.Auth (auth)
+import Gargantext.API.Admin.Auth (auth, forgotPassword, forgotPasswordAsync)
+import Gargantext.API.Admin.EnvTypes (Env)
 import Gargantext.API.Admin.FrontEnd (frontEndServer)
+import qualified Gargantext.API.GraphQL as GraphQL
 import Gargantext.API.Prelude
 import Gargantext.API.Routes
 import Gargantext.API.Swagger (swaggerDoc)
@@ -39,9 +41,11 @@ import Gargantext.Prelude
 import Gargantext.Prelude.Config (gc_url_backend_api)
 
 
-serverGargAPI :: MimeRender JSON err => Text -> GargServerM env err GargAPI
+serverGargAPI :: Text -> ServerT GargAPI (GargM Env GargError)
 serverGargAPI baseUrl -- orchestrator
        =  auth
+     :<|> forgotPassword
+     :<|> forgotPasswordAsync
      :<|> gargVersion
      :<|> serverPrivateGargAPI
      :<|> Public.api baseUrl
@@ -52,7 +56,7 @@ serverGargAPI baseUrl -- orchestrator
     gargVersion = pure (cs $ showVersion PG.version)
 
 -- | Server declarations
-server :: forall env. EnvC env => env -> IO (Server API)
+server :: Env -> IO (Server API)
 server env = do
   -- orchestrator <- scrapyOrchestrator env
   pure $  swaggerSchemaUIServer swaggerDoc
@@ -61,9 +65,14 @@ server env = do
             (Proxy :: Proxy AuthContext)
             transform
             (serverGargAPI (env ^. hasConfig . gc_url_backend_api))
+     :<|> hoistServerWithContext
+            (Proxy :: Proxy GraphQL.API)
+            (Proxy :: Proxy AuthContext)
+            transform
+            GraphQL.api
      :<|> frontEndServer
   where
-    transform :: forall a. GargM env GargError a -> Handler a
+    transform :: forall a. GargM Env GargError a -> Handler a
     transform = Handler . withExceptT showAsServantErr . (`runReaderT` env)