                   children))
       entry)))
 
+(defn hash-safe
+  [x]
+  (hash (w/prewalk (fn [v]
+                     (if (seq? v)
+                       (take 10000 v)
+                       v))
+                   x)))
+
+(defn mk-arg-hash-set
+  [tree]
+  (->> tree
+       :args
+       (map hash-safe)
+       set))
+
+
 (defn add-durations-to-tree
   [tree]
   (let [gross-time (->> tree

(ns com.billpiel.sayid.profiling
  (:require [com.billpiel.sayid.trace :as tr]
            [com.billpiel.sayid.recording :as rec]
            [com.billpiel.sayid.util.other :as util]))

(defn merge-profile-values
  [a b]

           :profiling {:gross-time gross-time
                       :net-time net-time
                       :kids-time kids-time
                       :arg-set (mk-arg-hash-set tree)})))

(defn assoc-tree-with-profile
  [tree]
