Skip to content

Commit 5b83f3f

Browse files
committed
Update clojail. Should fix timeouts.
1 parent 9063385 commit 5b83f3f

File tree

2 files changed

+5
-3
lines changed

2 files changed

+5
-3
lines changed

project.clj

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
:dependencies [[org.clojure/clojure "1.4.0"]
44
[compojure "1.1.0"]
55
[hiccup "1.0.0"]
6-
[clojail "0.5.1"]
6+
[clojail "1.0.1"]
77
[lib-noir "0.1.1"]
88
[congomongo "0.1.9"]
99
[org.jasypt/jasypt "1.7"]

src/foreclojure/problems.clj

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -14,7 +14,7 @@
1414
[foreclojure.users :only [golfer? get-user-id disable-codebox?]]
1515
[foreclojure.solutions :only [save-solution get-solution]]
1616
[clojail.core :exclude [safe-read]]
17-
[clojail.testers :only [secure-tester]]
17+
[clojail.testers :only [secure-tester blacklist-symbols]]
1818
[somnium.congomongo :only [update! fetch-one fetch fetch-and-modify destroy!]]
1919
[hiccup.form :only [form-to text-area hidden-field label text-field drop-down]]
2020
[hiccup.element :only [link-to]]
@@ -163,7 +163,9 @@
163163
(def restricted-list '[use require in-ns future agent send send-off pmap pcalls])
164164

165165
(defn get-tester [restricted]
166-
(into secure-tester (concat restricted-list (map symbol restricted))))
166+
(conj secure-tester
167+
(blacklist-symbols (set (concat restricted-list
168+
(map symbol restricted))))))
167169

168170
(def sb (sandbox*))
169171

0 commit comments

Comments
 (0)