add phylo export dot format

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

@@ -158,21 +158,21 @@ actionDownloadNodeTextsCpt = here.component "actionDownloadNodeTexts" cpt where
       info t  = "Info about the Documents as " <> show t <> " format"
 
 
-data PhyloDownloadFormat = PH_JSON -- | PH_DOT
+data PhyloDownloadFormat = PH_JSON | PH_DOT
 derive instance Eq PhyloDownloadFormat
 derive instance Generic PhyloDownloadFormat _
 instance Show PhyloDownloadFormat where
  show PH_JSON = "JSON"
---  show PH_DOT = "DOT"
+ show PH_DOT = "DOT"
 
 urlPhyloDownloadFormat :: PhyloDownloadFormat -> String
 urlPhyloDownloadFormat PH_JSON = "json"
--- urlPhyloDownloadFormat PH_DOT = "dot"
+urlPhyloDownloadFormat PH_DOT = "dot"
 
 readPhyloDownloadFormat :: String -> PhyloDownloadFormat
 readPhyloDownloadFormat "JSON" = PH_JSON
--- readPhyloDownloadFormat "DOT" = PH_DOT
-readPhyloDownloadFormat _ = PH_JSON -- PH_DOT
+readPhyloDownloadFormat "DOT" = PH_DOT
+readPhyloDownloadFormat _ = PH_DOT
 
 actionDownloadPhylo :: R2.Component ActionDownload
 actionDownloadPhylo = R.createElement actionDownloadPhyloCpt
@@ -180,7 +180,7 @@ actionDownloadPhylo = R.createElement actionDownloadPhyloCpt
 actionDownloadPhyloCpt :: R.Component ActionDownload
 actionDownloadPhyloCpt = here.component "actionDownloadPhylo" cpt where
   cpt { id, session } _ = do
-    downloadFormat <- T.useBox PH_JSON -- PH_DOT
+    downloadFormat <- T.useBox PH_DOT
     downloadFormat' <- T.useLive T.unequal downloadFormat
 
     pure $ Tools.panelWithSubmitButtonHref { action: DownloadNode
@@ -190,7 +190,7 @@ actionDownloadPhyloCpt = here.component "actionDownloadPhylo" cpt where
                   , defaultValue: show downloadFormat'
                   , on: { change: onChange downloadFormat } }
         [ opt PH_JSON
-        -- , opt PH_DOT 
+        , opt PH_DOT 
         ]
       , H.div {} [ H.text $ info downloadFormat' ]
       ]