[Options] fix list when creating a new node

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

@@ -93,7 +93,7 @@ addNodeViewCpt = here.component "addNodeView" cpt where
           T.write_ nt nodeType
         (maybeChoose /\ nt') = if length nodeTypes > 1
                          then ([ formChoice { items: nodeTypes
-                                            , default: Error
+                                            , default: nodeType'
                                             , callback: setNodeType'
                                             , print: print hasChromeAgent' } [] ] /\ nodeType')
                          else ([H.div {} [H.text $ "Creating a node of type "

src/Gargantext/Components/Forest/Tree/Node/Tools.purs

@@ -146,6 +146,7 @@ formChoiceCpt = here.component "formChoice" cpt where
       [
         R2.select
         { className: "form-control with-icon-font"
+        , defaultValue: show default
         , on: { change }
         } $ map option items
       ]