Adjusting Visualization to Vector changes

This commit is contained in:
Jaroslav Tulach 2022-09-01 06:07:56 +02:00
parent c06faaf362
commit 025acaa676
4 changed files with 4 additions and 4 deletions

View File

@ -92,7 +92,7 @@ Table.Table.all_columns : Vector
Table.Table.all_columns self =
index = self.index.catch_ []
index_columns = case index of
Vector.Vector_Data _ -> index
Vector.Vector_Data -> index
a -> [a]
index_columns + self.columns

View File

@ -56,7 +56,7 @@ from_value : Any -> Update
from_value value =
case value of
Table.Table_Data _ -> from_table value
Vector.Vector_Data _ -> from_vector value
Vector.Vector_Data -> from_vector value
Column.Column_Data _ -> from_table value.to_table
_ -> from_vector value.to_vector

View File

@ -203,7 +203,7 @@ process_to_json_text value bounds=Nothing limit=Nothing =
json = case value of
Column.Column_Data _ -> json_from_table value.to_table bounds limit
Table.Table_Data _ -> json_from_table value bounds limit
Vector.Vector_Data _ -> json_from_vector value bounds limit
Vector.Vector_Data -> json_from_vector value bounds limit
_ -> json_from_vector value.to_vector bounds limit
json.to_text

View File

@ -56,7 +56,7 @@ prepare_visualization x max_rows = Helpers.recover_errors <| case x of
truncated = x.take (First max_rows)
Json.from_pairs [["json", truncated], ["all_rows_count", x.length]] . to_text
Array ->
prepare_visualization (Vector.Vector_Data x) max_rows
prepare_visualization (Vector.from_array x) max_rows
# Anything else will be visualized with the JSON or matrix visualization
_ ->