 
 (defn find-ns-sym
   [file]
-  (println file)
   (some->> file
            slurp
            (re-find #"\(ns\s+(.+)\b")


(defn ^:nrepl sayid-trace-fn
  [{:keys [transport fn-name fn-ns type] :as msg}]
  (println [fn-name fn-ns type])
  (case type
        "outer" (sd/ws-add-trace-fn!* (util/qualify-sym fn-ns fn-name))
        "inner" (sd/ws-add-inner-trace-fn!* (util/qualify-sym fn-ns fn-name)))


(defn ^:nrepl sayid-trace-ns-in-file
  [{:keys [transport file] :as msg}]
  (->> file
       find-ns-sym
       sd/ws-add-trace-ns!*)
  (send-status-done msg))

