Skip to content

Commit

Permalink
Update noir.
Browse files Browse the repository at this point in the history
  • Loading branch information
Raynes committed Nov 7, 2011
1 parent 251b096 commit c3ccdba
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 7 deletions.
2 changes: 1 addition & 1 deletion project.clj
@@ -1,7 +1,7 @@
(defproject tryclojure "0.1.0-SNAPSHOT"
:description "A simple web-based Clojure REPL for trying out Clojure without having to install it."
:dependencies [[org.clojure/clojure "1.3.0"]
[noir "1.2.0"]
[noir "1.2.1"]
[commons-lang/commons-lang "2.5"]
[clojail "0.5.0-beta3"]]
;; For lein and Heroku compatibility. If you're using cake, add
Expand Down
8 changes: 2 additions & 6 deletions src/tryclojure/core.clj
@@ -1,6 +1,5 @@
(ns tryclojure.core
(:use ring.adapter.jetty
[hiccup form-helpers page-helpers]
(:use [hiccup form-helpers page-helpers]
ring.middleware.file
noir.core
[noir.response :only [json]]
Expand Down Expand Up @@ -113,9 +112,6 @@
(into secure-tester-without-def
#{'tryclojure.core}))

(defn update-session! [f & args]
(apply swap! session/*noir-session* f args))

(defn make-sandbox []
(sandbox try-clojure-tester
:timeout 2000
Expand All @@ -129,7 +125,7 @@

(defn eval-request [expr]
(try
(eval-string expr (get (update-session! find-sb) "sb"))
(eval-string expr (get (session/swap! find-sb) "sb"))
(catch TimeoutException _
{:error true :message "Execution Timed Out!"})
(catch Exception e
Expand Down

0 comments on commit c3ccdba

Please sign in to comment.