 
 (require 'clojure.pprint)
 
-(defn home-handler
-    [request]
+(defn home-handler [request]
     (str "Blaagh version " (:app-version request) " foo=" (:foo (:params request))))
 
 (defn wrap-version [handler]

    (HEAD "/" [] "Preview something"))

(defn -main []
    (run-server 
        (reload/wrap-reload 
            (wrap-spy 

        (handler (assoc request :app-version "0.1"))))

(defn wrap-spy [handler]
    "Output (to the server console) some pretty-printed representations 
    of the Request and Response maps."
    (fn [request]
        (println "-------------------------------")
        (println "Incoming Request Map:")
