       (-> action-request :action-ctx keys)
       (->> action-request :action-ctx vals (map #(find-entity-by-id db %)))
       )
+    :params-ctx (:params-ctx action-request)
     }
   )
 


(defn fire-action [db action-request]
  (let [action-event (populate-action-event db action-request)]
    (->>
      (map #(invoke-action db action-event))
      first
      )
    )
  )

    ]
    (println "Getting response " handler-response)
    (if-let [action-ctx (get-in handler-response [:body :action-ctx])]
      {
        :action-ctx
        (zipmap
          (keys action-ctx)
          (->> action-ctx vals (mapv #(save-entity db %)))
          )
        :params-ctx (get-in handler-response [:body :params-ctx])
        :reasoning-msg (get-in handler-response [:body :reasoning-msg])
        }
      )
