From 979eaa172bd78060bbc3333490c8b1e97a27604f Mon Sep 17 00:00:00 2001 From: Kevin F Date: Wed, 9 Oct 2024 09:48:13 +0200 Subject: [PATCH] rmv RectifyTerms from spreadsheet update --- src/Client/States/Spreadsheet.fs | 1 - src/Client/Update/InterfaceUpdate.fs | 3 --- src/Client/Update/SpreadsheetUpdate.fs | 24 ------------------------ 3 files changed, 28 deletions(-) diff --git a/src/Client/States/Spreadsheet.fs b/src/Client/States/Spreadsheet.fs index 5cd7e53..e80e3f1 100644 --- a/src/Client/States/Spreadsheet.fs +++ b/src/Client/States/Spreadsheet.fs @@ -188,7 +188,6 @@ type Msg = | InitFromArcFile of ArcFiles | InsertOntologyAnnotation of OntologyAnnotation | InsertOntologyAnnotations of OntologyAnnotation [] -| RectifyTermColumns | UpdateTermColumnsResponse of TermTypes.TermSearchable [] /// Starts chain to export active table to isa json | ExportJson of ArcFiles * JsonExportFormat diff --git a/src/Client/Update/InterfaceUpdate.fs b/src/Client/Update/InterfaceUpdate.fs index 3407be4..39dab23 100644 --- a/src/Client/Update/InterfaceUpdate.fs +++ b/src/Client/Update/InterfaceUpdate.fs @@ -272,9 +272,6 @@ module Interface = | Some Swatehost.Excel -> let cmd = OfficeInterop.RectifyTermColumns |> OfficeInteropMsg |> Cmd.ofMsg model, cmd - | Some Swatehost.Browser | Some Swatehost.ARCitect -> - let cmd = Spreadsheet.RectifyTermColumns |> SpreadsheetMsg |> Cmd.ofMsg - model, cmd | _ -> failwith "not implemented" | UpdateTermColumnsResponse terms -> match host with diff --git a/src/Client/Update/SpreadsheetUpdate.fs b/src/Client/Update/SpreadsheetUpdate.fs index d3a6284..f1f70db 100644 --- a/src/Client/Update/SpreadsheetUpdate.fs +++ b/src/Client/Update/SpreadsheetUpdate.fs @@ -376,30 +376,6 @@ module Spreadsheet = | ExportXlsxDownload (name,xlsxBytes) -> let _ = Helper.download (name ,xlsxBytes) state, model, Cmd.none - | RectifyTermColumns -> - //let getUpdateTermColumns() = promise { - // return Controller.getUpdateTermColumns state - //} - //let cmd = - // Cmd.OfPromise.either - // getUpdateTermColumns - // () - // (fun (searchTerms,deprecationLogs) -> - // // Push possible deprecation messages by piping through "GenericInteropLogs" - // Messages.GenericInteropLogs ( - // // This will be executed after "deprecationLogs" are handled by "GenericInteropLogs" - // Messages.SearchForInsertTermsRequest searchTerms |> Messages.Request |> Messages.Api |> Cmd.ofMsg, - // // This will be pushed to Activity logs, or as wanring modal to user in case of LogIdentifier.Warning - // deprecationLogs - // ) - // |> Messages.DevMsg - // ) - // (Messages.curry Messages.GenericError (OfficeInterop.UpdateFillHiddenColsState OfficeInterop.FillHiddenColsState.Inactive |> OfficeInteropMsg |> Cmd.ofMsg) >> DevMsg) - //let stateCmd = OfficeInterop.UpdateFillHiddenColsState OfficeInterop.FillHiddenColsState.ExcelCheckHiddenCols |> OfficeInteropMsg |> Cmd.ofMsg - //let cmds = Cmd.batch [cmd; stateCmd] - //state, model, cmds - failwith "UpdateTermColumns is not implemented yet" - state, model, Cmd.none | UpdateTermColumnsResponse terms -> //let nextExcelState = { // model.ExcelState with