fix: exclude empty columns from CSV exports.

MTES-MCT · Dec 2, 2024 · 140a35b · 140a35b
1 parent 98302ee
commit 140a35b
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/src/Page/Explore/Table.elm b/src/Page/Explore/Table.elm
@@ -149,12 +149,19 @@ viewList routeToMsg defaultConfig tableState scope createTable items =
 
 toCSV : Table data comparable msg -> List data -> Csv
 toCSV { columns } items =
-    { headers = List.map .label columns
+    let
+        nonEmptyColumns =
+            columns
+                |> List.filter (.label >> (/=) "")
+    in
+    { headers =
+        nonEmptyColumns
+            |> List.map .label
     , records =
         items
             |> List.map
                 (\item ->
-                    columns
+                    nonEmptyColumns
                         |> List.map (.toValue >> valueToString item)
                 )
     }