fix: no longer update graph and phylos on corpus update

parent 379336bb
Pipeline #6786 failed with stages
...@@ -252,22 +252,17 @@ updateCorpusCpt = here.component "updateTexts" cpt where ...@@ -252,22 +252,17 @@ updateCorpusCpt = here.component "updateTexts" cpt where
let methodTexts = Both let methodTexts = Both
pure $ pure $
Tools.panelWithSubmitButton { action: UpdateNode $ UpdateNodeParamsCorpus { methodGraph: graphConfig Tools.panelWithSubmitButton { action: UpdateNode $ UpdateNodeParamsCorpus { methodTexts: methodTexts
, methodPhylo: phyloConfig
, methodTexts: methodTexts
, methodList: methodList' } , methodList: methodList' }
, dispatch , dispatch
, mError: Nothing } , mError: Nothing }
[ H.text "Term update mode" [ H.p { } [ H.text "Update both term and document indexing."]
, Tools.formChoiceSafe { items: [Basic, Advanced, WithModel] , H.p { } [ H.text "Term update mode"
, default: methodList' , Tools.formChoiceSafe { items: [Basic, Advanced, WithModel]
, callback: \val -> T.write_ val methodList , default: methodList'
, print: show } [] , callback: \val -> T.write_ val methodList
, H.text "Show subjects with Order1 or concepts with Order2 ?" , print: show } [] ]
, Tools.formChoiceSafe { items: [Order1, Order2] , H.text "If you also want to update a graph or a phylo, use the update action on the respective node."
, default: methodGraphMetric'
, callback: \val -> T.write_ val methodGraphMetric
, print: show } []
] ]
updateNodeList :: R2.Component UpdateProps updateNodeList :: R2.Component UpdateProps
......
...@@ -28,9 +28,7 @@ data UpdateNodeParams ...@@ -28,9 +28,7 @@ data UpdateNodeParams
= UpdateNodeParamsList { methodList :: Method } = UpdateNodeParamsList { methodList :: Method }
| UpdateNodeParamsGraph { methodGraph :: UpdateNodeConfigGraph } | UpdateNodeParamsGraph { methodGraph :: UpdateNodeConfigGraph }
| UpdateNodeParamsTexts { methodTexts :: Granularity } | UpdateNodeParamsTexts { methodTexts :: Granularity }
| UpdateNodeParamsCorpus { methodGraph :: UpdateNodeConfigGraph | UpdateNodeParamsCorpus { methodTexts :: Granularity
, methodPhylo :: Phylo.UpdateData
, methodTexts :: Granularity
, methodList :: Method } , methodList :: Method }
| UpdateNodeParamsBoard { methodBoard :: Charts } | UpdateNodeParamsBoard { methodBoard :: Charts }
| UpdateNodeParamsPhylo { methodPhylo :: Phylo.UpdateData } | UpdateNodeParamsPhylo { methodPhylo :: Phylo.UpdateData }
...@@ -49,9 +47,9 @@ instance JSON.WriteForeign UpdateNodeParams where ...@@ -49,9 +47,9 @@ instance JSON.WriteForeign UpdateNodeParams where
writeImpl (UpdateNodeParamsTexts { methodTexts }) = writeImpl (UpdateNodeParamsTexts { methodTexts }) =
JSON.writeImpl { type: "UpdateNodeParamsTexts" JSON.writeImpl { type: "UpdateNodeParamsTexts"
, methodTexts } , methodTexts }
writeImpl (UpdateNodeParamsCorpus { methodGraph, methodPhylo, methodTexts, methodList }) = writeImpl (UpdateNodeParamsCorpus { methodTexts, methodList }) =
JSON.writeImpl { type: "UpdateNodeParamsCorpus" JSON.writeImpl { type: "UpdateNodeParamsCorpus"
, methodGraph, methodPhylo, methodTexts, methodList } , methodTexts, methodList }
writeImpl (UpdateNodeParamsBoard { methodBoard }) = writeImpl (UpdateNodeParamsBoard { methodBoard }) =
JSON.writeImpl { type: "UpdateNodeParamsBoard" JSON.writeImpl { type: "UpdateNodeParamsBoard"
, methodBoard } , methodBoard }
......
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