     (ss-msg (keyword "server" (str (name p-name) "-succeeded"))
             {:results data})))
 
-(defn r-qes-by [session [_ incoming] context]
+(defn r-qes-by [session _ incoming]
   (let [qes-name (:name incoming)
         data     (->> (if (:v incoming)
                         (dsu/qes-by (session-db (dato-session session))

        _                (def -last-session session)
        _                (println "\targs: " args)
        handler          (get-in routing-table [[event] :handler] default-handler)
        ;; temp hackishness
        handler          (if (var? handler)
                           @handler
                           handler)
        data             (if rpc?
                           (do
                             (println "rpc")
                             {:server/rpc-id (:rpc/id msg-data)
                              :data          (apply (partial handler session all-sessions) args)})
                           (handler session raw-incoming all-sessions))
        _                (println "data: " (pr-str data))
        encoded          (cdc/encode data :transit)]
    (when data

        _                (println "Message data:" (pr-str msg))
        raw-incoming     (cdc/decode (.getBytes msg) :transit)
        [event msg-data] raw-incoming
        args             (or (:args msg-data) [:place-holder])
        ;; :place-holder is to prever failure for e.g. (log-out!),
        ;; otherwise (:args msg-data) will be nil
        rpc?             (boolean args)
        _                (println "raw-incoming ffs: " (pr-str raw-incoming))
        _                (println "\t: " (pr-str [event] :handler))
