fix synonyms SQL syntax

1 files changed, 2 insertions, 3 deletions

diff --git a/lib/synonyms.fnl b/lib/synonyms.fnl
index 9ca6bab..f35d14f 100644
--- a/lib/synonyms.fnl
+++ b/lib/synonyms.fnl
@@ -32,7 +32,6 @@
     (each [_ synonym-word (ipairs synonyms-line) &until result]
       (when (= input-word synonym-word)
         (set result synonyms-line))))
-  (print result)
   result)
 
 (fn replace [line]
@@ -51,9 +50,9 @@
   (each [_ result (ipairs results)]
     (local synonyms (find-synonyms result))
     (when synonyms
-      (var query (.. (array.join synonyms " OR ") "*"))
+      (var query (.. (array.join synonyms "* OR ") "*"))
       (set final-result
-        (: final-result :gsub result (.. "(" query ")")))))
+        (: final-result :gsub result query))))
   final-result)
 
 {: replace}