Using wrappers to mix ring and aleph handlers in moustache routes

aleph-with-moustache.clj

(ns dining-service
  (:use aleph.core)
  (:use aleph.http)
  (:use net.cgrand.moustache)
)

(defn report-handler [response-channel request]
  (enqueue response-channel
    {:status 200
     :headers {"content-type" "text/plain"}
     :body "This is where the report would be."}))

(declare my-app)
(def my-app (app 
	     ["hello"] {:get "Just Hello"}
	     ["report"] {:get (inner-middleware-wrapper report-handler)}))

(defn boot []
  (start-http-server (outer-middleware-wrapper my-app) {:port 8080}))