update servant-job: Flat

package.yaml

@@ -182,7 +182,6 @@ library:
   - servant-blaze
   - servant-cassava
   - servant-client
-  - servant-flatten
   - servant-job
   - servant-mock
   - servant-multipart

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

@@ -32,7 +32,6 @@ import Gargantext.Database.Action.Flow (FlowCmdM)  -- flowAnnuaire
 import Gargantext.Database.Admin.Types.Node (AnnuaireId)
 import Gargantext.Prelude
 import Servant
-import Servant.API.Flatten (Flat)
 import Servant.Job.Core
 import Servant.Job.Types
 import Servant.Job.Utils (jsonOptions)
@@ -60,7 +59,7 @@ instance ToSchema WithForm where
 
 ------------------------------------------------------------------------
 type AsyncJobs event ctI input output =
-  Flat (AsyncJobsAPI' 'Unsafe 'Safe ctI '[JSON] Maybe event input output)
+  AsyncJobsAPI' 'Unsafe 'Safe ctI '[JSON] Maybe event input output
 ------------------------------------------------------------------------
 
 type AddWithForm = Summary "Add with FormUrlEncoded to annuaire endpoint"

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

@@ -43,7 +43,6 @@ import Gargantext.Database.Action.Flow (FlowCmdM, flowCorpus, getDataText, flowD
 import Gargantext.Database.Admin.Types.Node (CorpusId, ToHyperdataDocument(..), UserId)
 import Gargantext.Prelude
 import Servant
-import Servant.API.Flatten (Flat)
 import Servant.Job.Core
 import Servant.Job.Types
 import Servant.Job.Utils (jsonOptions)
@@ -173,7 +172,7 @@ instance ToSchema WithForm where
 
 ------------------------------------------------------------------------
 type AsyncJobs event ctI input output =
-  Flat (AsyncJobsAPI' 'Unsafe 'Safe ctI '[JSON] Maybe event input output)
+  AsyncJobsAPI' 'Unsafe 'Safe ctI '[JSON] Maybe event input output
 ------------------------------------------------------------------------
 
 type AddWithQuery = Summary "Add with Query to corpus endpoint"

stack.yaml

@@ -47,7 +47,7 @@ extra-deps:
   #- git: https://github.com/delanoe/servant-job.git
   #commit: 7a7b7100e6d132adb4c11b25b2128e6309690ac0
 - git: https://github.com/np/servant-job.git
-  commit: 5bf03696edad27285b0588aba92b34b48db16832
+  commit: 3b3270532e04887c6b658670e846a5ef07ef90e5
 - git: https://gitlab.iscpif.fr/gargantext/clustering-louvain.git
   commit: 7d74f96dfea8e51fbab1793cc0429b2fe741f73d
 - git: https://github.com/np/patches-map