order by defcon then date

diff --git a/client/src/client.gleam b/client/src/client.gleam
index 64184da853ff4f82ee8f14f94804652e89fd74c5..4b8be575aee96e41c0c02cd7edd131c1c0848481 100644 (file)
--- a/client/src/client.gleam
+++ b/client/src/client.gleam
@@ -4,6 +4,7 @@ import gleam/int
 import gleam/json
 import gleam/list
 import gleam/option.{type Option, None, Some}
+import gleam/order
 import gleam/result
 import gleam/string
 import lustre
@@ -752,7 +753,12 @@ fn kanban_column(title: String, tasks: List(shared.Task)) -> Element(Message) {
         ]),
       ],
       tasks
-        |> list.sort(fn(a, b) { string.compare(a.due_date, b.due_date) })
+        |> list.sort(fn(a, b) {
+          case int.compare(a.defcon, b.defcon) {
+            order.Eq -> string.compare(a.due_date, b.due_date)
+            a -> a
+          }
+        })
         |> list.map(task_view),
     ),
   )