improve logging

ekoontz · Aug 3, 2024 · b4dec11 · b4dec11
1 parent b964e65
commit b4dec11
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/menard/lexiconfn.cljc b/src/menard/lexiconfn.cljc
@@ -321,7 +321,7 @@
              (map (fn [rule]
                     (let [{u :u [from to] :p} rule]
                       (when (re-find from surface)
-                        (log-fn (str "FOUND with from: " from))
+                        (log-fn (str "matched surface: " surface " with regexp from: " from " and to: " to "; so finally: " (string/replace surface from to)))
                         {:canonical (string/replace surface from to)
                          :u u}))))
              (filter #(not (nil? %)))
@@ -339,6 +339,7 @@
              ;; canonical form (i.e. have {:canonical C} for some member of the set of tuples T.
              ;; First we get this set L:
              (mapcat (fn [tuple]
+                       (log/debug (str "looking at tuple: " tuple))
                        (->>
                         (get lexicon (:canonical tuple))