Merge remote-tracking branch 'origin/dev-fix-for-nolist-serialization' into dev

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

@@ -147,9 +147,9 @@ actionWriteNodesDocumentsWithLangsCpt = here.component "actionWriteNodesDocument
 
 type Params =
   ( id         :: GT.ID
-  , selection  :: ListSelection.Selection
   , lang       :: Lang
   , paragraphs :: String
+  , selection  :: ListSelection.Selection
   )
 
 documentsFromWriteNodesReq :: Session -> Record Params -> AffRESTError GT.AsyncTaskWithType

src/Gargantext/Components/ListSelection/Types.purs

@@ -9,7 +9,12 @@ import Data.Newtype (class Newtype)
 import Gargantext.Types (ID, ListId, NodeType)
 import Simple.JSON as JSON
 
-data Selection = MyListsFirst | OtherListsFirst | SelectedLists (Array ListId) | NoList
+
+data Selection =
+    MyListsFirst
+  | OtherListsFirst
+  | SelectedLists (Array ListId)
+  | NoList
 derive instance Generic Selection _
 instance Show Selection where
   show MyListsFirst      = "My lists first"
@@ -25,7 +30,7 @@ instance Read Selection where
   read _                   = Nothing
 instance JSON.WriteForeign Selection where
   writeImpl MyListsFirst        = JSON.writeImpl { "type": "MyListsFirst" }
-  writeImpl NoList = JSON.writeImpl { "type": "NoList" }
+  writeImpl NoList              = JSON.writeImpl { "type": "NoList", "makeList": true }
   writeImpl OtherListsFirst     = JSON.writeImpl { "type": "OtherListsFirst" }
   writeImpl (SelectedLists ids) = JSON.writeImpl { "type": "SelectedLists", value: ids }