core.clj

(ns middler-clojure.core
  (:use org.httpkit.server)
  (:use clojure.walk)
  (:require [org.httpkit.client :as http])
  (:gen-class))

(defn app [req]
  (println req)
  (let [uri (:uri req)]
      (println (class uri))
    (with-channel req channel
      (println uri)
      (send! channel (update-in @(http/get uri) [:headers] stringify-keys)))))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (run-server app {:port 8080})) ; Ring server