Commit 8e79e206 authored by mzheng's avatar mzheng

add phylo export dot format

parent c9caff4f
Pipeline #6107 failed with stages
in 8 minutes and 3 seconds
......@@ -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' ]
]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment