[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Ricardo Wurmus |
Date: |
Tue, 18 Jun 2019 18:01:03 -0400 (EDT) |
branch: master
commit 767f34bd68178af46d48d80a08d6258c71b45ce2
Author: Ricardo Wurmus <address@hidden>
Date: Tue Jun 18 22:56:18 2019 +0200
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)