Output all transitions

MastodonC · Feb 21, 2018 · 262535a · 262535a
1 parent 1b0b948
commit 262535a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/clj/witan/send/send.clj b/src/clj/witan/send/send.clj
@@ -363,7 +363,7 @@
   (apply merge-with + (mapcat #(map :transitions %) projections)))
 
 (defn output-transitions [file projections]
-  (spit file (pr-str projections)))
+  (binding [*print-length* nil] (spit file (pr-str projections))))
 
 (defn values-rf
   "Associate a reducing function to be used for each value of map indexed by key"