                          (let [points (object-array asize)
                                agg-fn (agg-fn-by-path %)
                                rows (->> (alia/execute
-                                          session fetch!
+                                          session
+                                          fetch!
                                           {:values [% tenant (int rollup)
                                                     (int period)
                                                     from to]

        (let [min-point  (align-time from rollup)
              max-point  (align-time (apply min [to (now)]) rollup)]
          (if-let [series (and (seq paths)
                               (par-fetch session fetch! paths tenant rollup
                                          period min-point max-point))]
            (format "{\"from\":%s,\"to\":%s,\"step\":%s,\"series\":%s}"
                    min-point max-point rollup series)

  [session]
  (alia/prepare
   session
   fetchq))


(defn useq
