Added fn to ids package for local debug printing

WormBase · Sep 10, 2020 · d6b6329 · d6b6329
1 parent 31666f4
commit d6b6329
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/ids/src/wormbase/ids/core.clj b/ids/src/wormbase/ids/core.clj
@@ -5,6 +5,12 @@
    [clojure.walk :as w]
    [datomic.api :as d]))
 
+(def log-file "/home/mlp/logs/wormbase-ids-core.log")
+(spit log-file "")
+(defn debug-log
+  [log-str]
+  (spit log-file (str log-str "\n") :append true))
+
 (defn attr-schema-unique? [db attr]
   (try
     (let [s-attr (:db/unique (d/entity db attr))]