improve logging

ekoontz · Jul 25, 2024 · 51bb2e7 · 51bb2e7
1 parent 8f6d0df
commit 51bb2e7
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/menard/lexiconfn.cljc b/src/menard/lexiconfn.cljc
@@ -430,10 +430,9 @@
 
                                                             (let [fp
                                                                   (diag/fail-path (d/dissoc-in lexeme [:exceptions]) exception)]
-                                                              (log-fn (str "FUCK, IT DID NOT UNIFY: FP: " fp))
-                                                              (log-fn (str "   FUCK1: lexeme value: " (u/get-in (d/dissoc-in lexeme [:exceptions]) fp)))
-                                                              (log-fn (str "   FUCK2: " (u/get-in exception fp))))
-                                                            ))))))))
+                                                              (log-fn (str "(unify lexeme exception) failed at path: " fp))
+                                                              (log-fn (str "   lexeme value:    " (u/get-in (d/dissoc-in lexeme [:exceptions]) fp)))
+                                                              (log-fn (str "   exception value: " (u/get-in exception fp))))))))))))
                                 merge-all)))]
     (->>
      (cons lexicon