diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-18 22:56:18 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-18 23:36:37 +0200 |
| commit | 767f34bd68178af46d48d80a08d6258c71b45ce2 (patch) | |
| tree | a3afa9b511fbcc9d7fe68fe0e481f4323477ebdd /src | |
| parent | 9017b9fbc15178a1e6c4c50886c532df9a63328e (diff) | |
| download | cuirass-767f34bd68178af46d48d80a08d6258c71b45ce2.tar cuirass-767f34bd68178af46d48d80a08d6258c71b45ce2.tar.gz | |
database: db-get-specifications: Order specs by name.
* src/cuirass/database.scm (db-get-specifications): Order rows by "name".
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/database.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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) |