Fix the match statement in select-build-by-build-server-and…

This commit is contained in:
Christopher Baines 2019-12-05 16:14:37 +01:00
parent 29e897ce9c
commit 1e040010fc

View file

@ -105,7 +105,8 @@ WHERE build_server_id = $1 AND derivation_file_name = $2")
query
(list (number->string build-server-id)
derivation-file-name))
((id) (string->number id))
((id build_server_id derivation_file_name)
(string->number id))
(_
#f)))