   [f]
   (->interceptor
     :name  :after
-
-    :after (fn [context]
+    :after (fn after-after
+             [context]
              (let [db    (get-effect context :db)
                    event (get-coeffect context :event)]
                (f db event)    ;; call f for side effects

  [f]
  (->interceptor
    :name  :enrich

    :after (fn [context]
             (let [event (get-coeffect context :event)
                   db    (get-effect context :db)]
               (->> (f db event)

  [handler-fn]
  (->interceptor
    :name   :db-handler
    :before (fn db-handler-before
              [context]
              (let [{:keys [db event]} (:coeffects context)]
                (->>  (handler-fn db event)
                      (assoc-effect context :db))))))


(defn fx-handler->interceptor
