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

   1 {-|
   2 Module      : Gargantext.API.Node.Corpus.Annuaire
   3 Description : New annuaire API
   4 Copyright   : (c) CNRS, 2017-Present
   5 License     : AGPL + CECILL v3
   6 Maintainer  : team@gargantext.org
   7 Stability   : experimental
   8 Portability : POSIX
   9 -}
  10
  11 {-# LANGUAGE TemplateHaskell    #-}
  12 {-# LANGUAGE TypeOperators      #-}
  13
  14 module Gargantext.API.Node.Corpus.Annuaire
  15       where
  16
  17 import Control.Lens hiding (elements)
  18 import Data.Aeson
  19 import Data.Swagger
  20 import Data.Text (Text)
  21 import GHC.Generics (Generic)
  22 import Gargantext.API.Admin.Orchestrator.Types
  23 import Gargantext.Core (Lang(..))
  24 import Gargantext.Core.Utils.Prefix (unPrefixSwagger)
  25 import Gargantext.Database.Action.Flow (FlowCmdM)  -- flowAnnuaire
  26 import Gargantext.Database.Admin.Types.Node (AnnuaireId)
  27 import Gargantext.Prelude
  28 import Servant
  29 import Servant.Job.Core
  30 import Servant.Job.Types
  31 import Servant.Job.Utils (jsonOptions)
  32 import Web.FormUrlEncoded (FromForm)
  33 import qualified Gargantext.API.Node.Corpus.New.File as NewFile
  34
  35
  36 type Api = Summary "New Annuaire endpoint"
  37          :> Post '[JSON] AnnuaireId
  38
  39 ------------------------------------------------------------------------
  40 ------------------------------------------------------------------------
  41 data AnnuaireWithForm = AnnuaireWithForm
  42   { _wf_filetype :: !NewFile.FileType
  43   , _wf_data     :: !Text
  44   , _wf_lang     :: !(Maybe Lang)
  45   } deriving (Eq, Show, Generic)
  46
  47 makeLenses ''AnnuaireWithForm
  48 instance FromForm AnnuaireWithForm
  49 instance FromJSON AnnuaireWithForm where
  50   parseJSON = genericParseJSON $ jsonOptions "_wf_"
  51 instance ToSchema AnnuaireWithForm where
  52   declareNamedSchema = genericDeclareNamedSchema (unPrefixSwagger "_wf_")
  53
  54 ------------------------------------------------------------------------
  55 type AsyncJobs event ctI input output =
  56   AsyncJobsAPI' 'Unsafe 'Safe ctI '[JSON] Maybe event input output
  57 ------------------------------------------------------------------------
  58
  59 type AddWithForm = Summary "Add with FormUrlEncoded to annuaire endpoint"
  60    :> "annuaire"
  61    :> Capture "annuaire_id" AnnuaireId
  62    :> "add"
  63    :> "form"
  64    :> "async"
  65    :> AsyncJobs JobLog '[FormUrlEncoded] AnnuaireWithForm JobLog
  66
  67 ------------------------------------------------------------------------
  68 addToAnnuaireWithForm :: FlowCmdM env err m
  69                     => AnnuaireId
  70                     -> AnnuaireWithForm
  71                     -> (JobLog -> m ())
  72                     -> m JobLog
  73 addToAnnuaireWithForm _cid (AnnuaireWithForm ft _d _l) logStatus = do
  74
  75   printDebug "ft" ft
  76
  77   logStatus JobLog { _scst_succeeded = Just 1
  78                           , _scst_failed    = Just 0
  79                           , _scst_remaining = Just 1
  80                           , _scst_events    = Just []
  81                           }
  82   pure      JobLog { _scst_succeeded = Just 2
  83                           , _scst_failed    = Just 0
  84                           , _scst_remaining = Just 0
  85                           , _scst_events    = Just []
  86                           }
  87