 ;; completed down the road.
 
 (defn run-datadump
-   "Based on params this actually runs the export-conversation computation."
+  "Based on params this actually runs the export-conversation computation."
   [filename params]
   (log/info "Params for run-datadump are:" (with-out-str (prn params)))
   (try


(defn generate-aws-url!
  "Generate a presigned url from amazon for the given filename. Optionally set an expiration in hours (defaulting to the number
  sourced from env variable :download-link-expiration-hours."
  ([aws-cred filename expiration]
   ;; XXX more env/env stuff
   (let [expiration (-> expiration time/hours time/from-now)]

(defn full-path [filename] (str tmp-dir filename))

(def private-app-url-base (or (:export-server-url-base env/env) "http://localhost:3000"))
(def public-app-url-base "https://pol.is/api/v3")
(defn private-url
  [& path]
  (apply str private-app-url-base "/" path))
