         path (str "/tmp/polis-export-" zinvite "-" last-updated "." ext)]
     path))
 
-;; config component => parameterization system?
+
+;; The following is really just a bunch of parameter parsing stuff.
+;; Tihs could all possibly be interwoven with the config component as well.
+
 (defn ->int
+  "Try to parse as an integer; return nil if not possible."
   [x]
   (try (Integer/parseInt x)
        (catch Exception e nil)))
 
-
 (def parsers {:zid ->int
               :zinvite ->int})
+
 (def allowed-params #{:filename :zid :zinvite :at-date :format})
+
 (defn parsed-params
+  "Parses the params for a request, occording to parsers."
   [params]
   (reduce
     (fn [m [k v]] (if (allowed-params k)

            [bidi.bidi :as bidi]
            [bidi.ring]))

;(ns-unalias *ns* 'env)

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

                 :bucket-name "polis-datadump"
                 :key (full-aws-path filename)
                 :file (full-path filename)))

(defn handle-completion!
  [aws-cred filename params]
