             (merge-where-range :trade-date d-range)
             (append-sort options)
             (append-limit options)
-            (append-paging options)))))
+            #_(append-paging options))))) ; paging will have to be reworked
 
   (update-price
     [_ price]

     (->> tables#
          (map keyword)
          (reduce (fn [records# table#]
                    (let [sql# (-> table#
                                   sql-fn#
                                   sql/format)
                          updated-records# (concat records# (query ~db-spec sql#))]
                      (if (and (= 1 (:limit ~options))
                               (seq updated-records#))
                        (reduced updated-records#)

  [storage range-value]
  (if (sequential? range-value)
    (-> range-value
        (update-in [1] #(or % (.get-setting storage
                                            "earliest-partition-date"
                                            (fnil read-string "#local-date \"2000-01-01\""))))
        rest)
    [range-value range-value]))

(deftype SqlStorage [db-spec]
