               (let [new-context
                     (trace/with-trace
                       {:op-type   :event/handler
-                       :operation (get-in context [:coeffects :event])}
+                       :operation (get-coeffect context :event)}
                       (handler-fn context))]
                 (trace/merge-trace!
-                  {:tags {:effects   (:effects new-context)
-                          :coeffects (:coeffects context)}})
+                  {:tags {:effects   (get-effect new-context)
+                          :coeffects (get-coeffect context)}})
                 new-context))))
 
 

    :before  (fn trimv-before
               [context]
               (-> context
                   (update-in [:coeffects :event] subvec 1)
                   (assoc-in [:coeffects ::untrimmed-event] (get-coeffect context :event))))
    :after   (fn trimv-after
               [context]
               (-> context
                   (utils/dissoc-in [:coeffects ::untrimmed-event])
                   (assoc-in [:coeffects :event] (get-coeffect context ::untrimmed-event))))))


;; -- Interceptor Factories - PART 1 ---------------------------------------------------------------

            (let [new-context
                  (trace/with-trace
                    {:op-type   :event/handler
                     :operation (get-coeffect context :event)}
                    (let [{:keys [event] :as coeffects} (get-coeffect context)]
                      (->> (handler-fn coeffects event)
                           (assoc context :effects))))]
              (trace/merge-trace!
                {:tags {:effects   (get-effect new-context)
                        :coeffects (get-coeffect context)}})
              new-context))))


