From 767f34bd68178af46d48d80a08d6258c71b45ce2 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 18 Jun 2019 22:56:18 +0200
Subject: database: db-get-specifications: Order specs by name.

* src/cuirass/database.scm (db-get-specifications): Order rows by "name".
---
 src/cuirass/database.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index be7ae8d..a0e6c63 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -353,7 +353,7 @@ package_path_inputs, proc_input, proc_file, proc, proc_args) \
 
 (define (db-get-specifications)
   (with-db-critical-section db
-    (let loop ((rows  (sqlite-exec db "SELECT * FROM Specifications;"))
+    (let loop ((rows  (sqlite-exec db "SELECT * FROM Specifications ORDER BY name DESC;"))
                (specs '()))
       (match rows
         (() specs)
-- 
cgit v1.2.3