Merge branch 'dev' into 322-dev-list-ids-selection

package.json

 {
     "name": "Gargantext",
-    "version": "0.0.3.1",
+    "version": "0.0.3.2",
     "scripts": {
         "generate-purs-packages-nix": "./nix/generate-purs-packages.nix",
         "generate-psc-packages-nix": "./nix/generate-packages-json.bash",

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

@@ -22,6 +22,7 @@ import Gargantext.Routes as GR
 import Gargantext.Sessions (Session, post)
 import Gargantext.Types (ID)
 import Gargantext.Types as GT
+import Gargantext.Utils.SimpleJSON as GUSJ
 import Gargantext.Utils.Reactix as R2
 
 here :: R2.Here
@@ -41,8 +42,12 @@ data ShareNodeParams = ShareTeamParams   { username :: String }
                | SharePublicParams { node_id  :: Int    }
 derive instance Eq ShareNodeParams
 derive instance Generic ShareNodeParams _
-instance JSON.ReadForeign ShareNodeParams where readImpl = JSONG.untaggedSumRep
-instance JSON.WriteForeign ShareNodeParams where writeImpl = JSON.writeImpl <<< show
+instance JSON.ReadForeign ShareNodeParams where readImpl = GUSJ.taggedSumRep
+instance JSON.WriteForeign ShareNodeParams where
+  writeImpl (ShareTeamParams { username }) = JSON.writeImpl { "type": "ShareTeamParams"
+                                                            , username }
+  writeImpl (SharePublicParams { node_id }) = JSON.writeImpl { "type": "SharePublicParams"
+                                                             , node_id }
 instance Show ShareNodeParams where show = genericShow
 
 ------------------------------------------------------------------------