From 274c4cc42c5451fd073f577bf1592aed091dacf7 Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Mon, 27 Mar 2023 22:48:57 +0300 Subject: Allow running raw queries in field form Signed-off-by: Munyoki Kilyungi --- dump/sql.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'dump/sql.scm') diff --git a/dump/sql.scm b/dump/sql.scm index 54371a2..76c9e0e 100644 --- a/dump/sql.scm +++ b/dump/sql.scm @@ -29,12 +29,12 @@ (_ "")) #,(string-join (filter-map (match-lambda ('distinct #f) + (((query alias)) + (format #f "~a AS ~a" query alias)) ((table column) (format #f "~a.~a" table column)) ((table column alias) (format #f "~a.~a AS ~a" table column alias)) - ((table column operation alias) - (format #f "~a(~a.~a) AS ~a" operation table column alias)) (field-spec (error "Invalid field specification" field-spec))) (syntax->datum #'fields)) -- cgit v1.2.3