diff options
-rw-r--r-- | src/cuirass/database.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm index 4405f6e..f746289 100644 --- a/src/cuirass/database.scm +++ b/src/cuirass/database.scm @@ -35,6 +35,7 @@ db-delete-evaluation db-add-build-log read-sql-file + read-quoted-string sqlite-exec ;; Parameters. %package-database @@ -170,7 +171,7 @@ INSERT INTO Evaluations (derivation, job_name, specification)\ (λ () body ...) (λ () (db-close db))))) -(define* (read-quoted-string #:optional port) +(define* (read-quoted-string #:optional (port (current-input-port))) "Read all of the characters out of PORT and return them as a SQL quoted string." (let loop ((chars '())) |