postgres.clj

(ns second-post.postgres
  (:use aleph)
  (:require [clojure.contrib.sql :as sql]))

(def db {:classname "org.postgresql.Driver"
         :subprotocol "postgresql"
         :subname "dummy"
         :user "postgres"})

(defn insert-foo [val]
  (sql/insert-values :foo [:bar] [val]))

(defn save [request]
  (future
   (sql/with-connection db (insert-foo "test"))
   (respond! request
             {:status 200
              :headers {"Content-Type" "text/html"}
              :body "Saved!"})))

(run-aleph save {:port 8080})