[NodeWrite Analysis] API types

src/Gargantext/Components/Forest/Tree/Node/Action/Types.purs

@@ -30,7 +30,7 @@ data Action = AddNode     String GT.NodeType
             | MergeNode   {params :: Maybe SubTreeOut}
             | LinkNode    {nodeType :: Maybe GT.NodeType, params :: Maybe SubTreeOut}
 
-            | DocumentsFromWriteNodes { id :: GT.ID, lang :: Lang, selection :: Selection, paragraphs :: String }
+            | DocumentsFromWriteNodes { id :: GT.ID, lang :: Lang, selection :: Selection, paragraphs :: Int }
 
             | NoAction
 

src/Gargantext/Components/Forest/Tree/Node/Action/WriteNodesDocuments.purs

@@ -3,7 +3,8 @@ module Gargantext.Components.Forest.Tree.Node.Action.WriteNodesDocuments where
 import Gargantext.Prelude
 
 import Data.Either (Either)
-import Data.Maybe (Maybe(..))
+import Data.Int (fromString)
+import Data.Maybe (Maybe(..), fromMaybe)
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
 import Gargantext.Components.App.Store (Boxes)
@@ -119,14 +120,14 @@ actionWriteNodesDocumentsCpt = here.component "actionWriteNodesDocuments" cpt wh
       ]
     ]
 
-    pure $ panel bodies (submitButton (DocumentsFromWriteNodes { id, lang: lang', selection: selection', paragraphs: paragraphs' }) dispatch)
+    pure $ panel bodies (submitButton (DocumentsFromWriteNodes { id, lang: lang', selection: selection', paragraphs: fromMaybe 7 $ fromString paragraphs' }) dispatch)
 
 
 type Params =
   ( id         :: GT.ID
   , selection  :: ListSelection.Selection
   , lang       :: Lang
-  , paragraphs :: String
+  , paragraphs :: Int
   )
 
 documentsFromWriteNodesReq :: Session -> Record Params -> AffRESTError GT.AsyncTaskWithType