                               (HashMap.))
       :suicide-fn (mk-suicide-fn conf)
       :uptime (uptime-computer)
+      :default-shared-resources (mk-default-resources <>)
+      :user-shared-resources (mk-user-resources <>)
       :receiver-thread-count (get storm-conf WORKER-RECEIVER-THREAD-COUNT)
       :transfer-fn (mk-transfer-fn <>)
       )))

;; stuff below is going to be used.


(defn mk-transfer-fn
  "Make a transfer function."
  [worker]

        executors (atom nil)

        ;; initialize executors
        _ (reset! executors (dofor [e (:executors worker)] (executor/mk-executor worker e)))
        shutdown* (fn []
                    (log-message "Shutting down worker " storm-id " " assignment-id)
                    (log-message "Shutting down executors")
