mirror of https://notabug.org/mthl/cuirass.git
database: read-quoted-string: add default value to optional argument.
parent
ce0d739622
commit
7292bd5019
|
@ -35,6 +35,7 @@
|
||||||
db-delete-evaluation
|
db-delete-evaluation
|
||||||
db-add-build-log
|
db-add-build-log
|
||||||
read-sql-file
|
read-sql-file
|
||||||
|
read-quoted-string
|
||||||
sqlite-exec
|
sqlite-exec
|
||||||
;; Parameters.
|
;; Parameters.
|
||||||
%package-database
|
%package-database
|
||||||
|
@ -170,7 +171,7 @@ INSERT INTO Evaluations (derivation, job_name, specification)\
|
||||||
(λ () body ...)
|
(λ () body ...)
|
||||||
(λ () (db-close db)))))
|
(λ () (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
|
"Read all of the characters out of PORT and return them as a SQL quoted
|
||||||
string."
|
string."
|
||||||
(let loop ((chars '()))
|
(let loop ((chars '()))
|
||||||
|
|
Loading…
Reference in New Issue