Return Maybe (node ID) upon creating a subcorpus

src/Gargantext/API/Node/Corpus/Subcorpus.hs

@@ -22,11 +22,11 @@ makeSubcorpus :: ( HasNodeStoryEnv env
   -> MakeSubcorpusAPI (AsServerT m)
 makeSubcorpus user = MakeSubcorpusAPI $ \corpusId params -> do
   case parseQuery (RawQuery $ _subcorpusParams_query params) of
-    Left _  -> return False
+    Left _  -> return Nothing
     Right q -> do
-      _ <- makeSubcorpusFromQuery
+      subcorpusId <- makeSubcorpusFromQuery
              (UserDBId user)
              corpusId
              q
              (_subcorpusParams_reuseParentList params)
-      return True
+      return $ Just subcorpusId

src/Gargantext/API/Routes/Named/Corpus.hs

@@ -32,7 +32,7 @@ import Gargantext.API.Worker (WorkerAPI)
 import Gargantext.Core.Text.Ngrams (NgramsType(..))
 import Gargantext.Core.Utils.Prefix (unPrefix, unPrefixSwagger)
 import Gargantext.Database.Admin.Types.Node
-import Gargantext.Prelude (Bool)
+import Gargantext.Prelude (Bool, Maybe)
 import Servant
 
 --------------------------------------------------
@@ -68,7 +68,7 @@ newtype MakeSubcorpusAPI mode = MakeSubcorpusAPI
                      :> Capture "corpus_id" CorpusId
                      :> "subcorpus"
                      :> ReqBody '[JSON] SubcorpusParams
-                     :> Post '[JSON] Bool -- was request successful
+                     :> Post '[JSON] (Maybe NodeId) -- new subcorpus ID, if successful
   } deriving Generic
 
 data SubcorpusParams = SubcorpusParams

src/Gargantext/API/Server/Named/Private.hs

@@ -61,7 +61,7 @@ serverPrivateGargAPI' authenticatedUser@(AuthenticatedUser userNodeId userId)
        , membersAPI        = members
        , addWithFormAPI    = addCorpusWithForm (RootId userNodeId)
        , addWithQueryEp    = addCorpusWithQuery (RootId userNodeId)
-       , makeSubcorpusAPI      = Subcorpus.makeSubcorpus userId
+       , makeSubcorpusAPI  = Subcorpus.makeSubcorpus userId
        , listGetAPI        = List.getAPI
        , listJsonAPI       = List.jsonAPI
        , listTsvAPI        = List.tsvAPI