     (html-response (styleguide/render (keywordize-keys params) (styleguide-template)))
     (let [[host-with-statuses last-changed] @poll/statuses]
       (-> (html-response (view/render host-with-statuses
-                                 (query-param-as-vec params "systems")
-                                 (page-template)
-                                 (environment-names)))
+                                      (query-param-as-vec params "systems")
+                                      (page-template)
+                                      (environment-names)))
           (header "Last-Modified" (format-date (.toDate last-changed)))))))
 
 


(defn init []
  (try
    (poll/start-polling (config/hosts-with-config config-dir) timeout-in-ms)
    (catch FileNotFoundException e
      (binding [*out* *err*]
        (println (.getMessage e))

(defn- query-param-as-vec [params key]
  (let [value (get params key)
        value-vector (if (string? value)
                       (vector value)
                       value)]
    (seq (mapcat #(str/split % #",") value-vector))))

(defn- html-response [body]
