Output all transitions

Author: seb231

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"