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)))))