Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix with-session.

  • Loading branch information...
commit 72a1c6912333e23b9a40fd710e73d79f8dc91c51 1 parent 1d8771d
@benkard authored
Showing with 2 additions and 5 deletions.
  1. +2 −5 cljssss-g.clj
View
7 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"
Please sign in to comment.
Something went wrong with that request. Please try again.