From ed37f4fcc9c1e7d038f97be81ef14ccbb5abd1ec Mon Sep 17 00:00:00 2001
From: Oliver Marshall <olivershawmarshall@gmail.com>
Date: Wed, 10 Apr 2024 17:31:30 +0100
Subject: [PATCH] fix: allow queries to end in a ; followed by whitespace

For compatibility with xtsql in the quickstart

Fixes #24
---
 src/xt_fiddle/run.cljs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/xt_fiddle/run.cljs b/src/xt_fiddle/run.cljs
index 5785332..9941a3c 100644
--- a/src/xt_fiddle/run.cljs
+++ b/src/xt_fiddle/run.cljs
@@ -13,9 +13,12 @@
               (str))
     :xtql (str "[" txs "]")))
 
+(defn remove-last-semicolon [s]
+  (str/replace s #";\s*$" ""))
+
 (defn encode-query [query type]
   (case type
-    :sql (pr-str query)
+    :sql (-> query remove-last-semicolon pr-str)
     :xtql query))
 
 (rf/reg-event-fx ::run