commenting DOT format for now

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_DOT
+-- readPhyloDownloadFormat "DOT" = PH_DOT
+readPhyloDownloadFormat _ = PH_JSON -- 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_DOT
+    downloadFormat <- T.useBox PH_JSON -- PH_DOT
     downloadFormat' <- T.useLive T.unequal downloadFormat
 
     pure $ Tools.panelWithSubmitButtonHref { action: DownloadNode
@@ -190,7 +190,8 @@ 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' ]
       ]
     where