diff options
| author | TSholokhova <tanja201396@gmail.com> | 2018-08-05 21:25:37 +0200 |
|---|---|---|
| committer | Clément Lassieur <clement@lassieur.org> | 2018-09-30 17:08:15 +0200 |
| commit | cbf8e138354ab24b597e16b1a10d9d472d63bc53 (patch) | |
| tree | 6c93e92aea3bc320bf88bf5c87f2c99bb50884e2 /src/cuirass/database.scm | |
| parent | 3b08d6ea9872e0649ccc5805538c6f9425a55f9a (diff) | |
| download | cuirass-cbf8e138354ab24b597e16b1a10d9d472d63bc53.tar cuirass-cbf8e138354ab24b597e16b1a10d9d472d63bc53.tar.gz | |
templates: Add a navigation bar.
* src/cuirass/database.scm (db-get-evaluation-specification): New exported
procedure.
* src/cuirass/http.scm (respond-html): Allow to pass CODE as argument.
(respond-html-eval-not-found): New procedure.
(url-handler): Fill navigation arguments. Handle the case where the
evaluation doesn't exist.
* src/cuirass/templates.scm (navigation-items): New procedure.
(html-page): Add navigation bar.
Co-authored-by: Clément Lassieur <clement@lassieur.org>
Diffstat (limited to 'src/cuirass/database.scm')
| -rw-r--r-- | src/cuirass/database.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index e17d4f0..e949d1b 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -53,6 +53,7 @@ db-get-evaluations-build-summary db-get-evaluations-id-min db-get-evaluations-id-max + db-get-evaluation-specification read-sql-file read-quoted-string sqlite-exec @@ -751,3 +752,13 @@ AND (" status " IS NULL OR (" status " = 'pending' OR (" status " = 'failed' AND Builds.status > 0))))"))) (vector->list (car rows))))) + +(define (db-get-evaluation-specification eval) + "Return specification of evaluation with id EVAL." + (with-db-critical-section db + (let ((rows (sqlite-exec db " +SELECT specification FROM Evaluations +WHERE id = " eval))) + (match rows + ((row) (vector-ref row 0)) + (() #f))))) |