From 64cf836b478608fed244a9f41f02b7824f27c638 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Fri, 3 Jan 2020 18:42:29 +0000
Subject: [PATCH] UI: When selecting ticket dep, display the list sorted by
ticket number
---
src/Vervis/Field/Ticket.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Vervis/Field/Ticket.hs b/src/Vervis/Field/Ticket.hs
index 357451e..5358af5 100644
--- a/src/Vervis/Field/Ticket.hs
+++ b/src/Vervis/Field/Ticket.hs
@@ -70,5 +70,5 @@ selectTicketDep jid tid =
checkDep tid $
checkNotSelf tid $
selectField $
- optionsPersistKey [TicketProject P.==. jid, TicketId P.!=. tid] [] $
+ optionsPersistKey [TicketProject P.==. jid, TicketId P.!=. tid] [P.Asc TicketNumber] $
\ t -> sformat (int % " :: " % stext) (ticketNumber t) (ticketTitle t)