diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-23 17:28:04 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-02-23 17:28:04 +0100 |
| commit | 72a1c6912333e23b9a40fd710e73d79f8dc91c51 (patch) | |
| tree | 8d40db0d949bff5b019d29d2a167a59e8fe866d6 | |
| parent | 1d8771deb5b526ef08253ab4206ef05d34d878a4 (diff) | |
Fix with-session.
| -rw-r--r-- | cljssss-g.clj | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/cljssss-g.clj b/cljssss-g.clj index 963c166..4f781db 100644 --- a/cljssss-g.clj +++ b/cljssss-g.clj @@ -17,9 +17,6 @@ :subname "cljssss-g.sqlite3" :create true}) -;; FIXME: WAAAAAAAAAH! -(def session {:id false}) - (defmacro with-db [& body] `(sql/with-connection db-connection-data ~@body)) @@ -91,10 +88,10 @@ ]])))) (defmacro with-session [& body] - `(if (not (session :id)) + `(if (not (~'session :id)) (redirect-to "/login") (do ~@body))) - + (defservlet cljssss-g (GET "/login" |