Permalink
Browse files

Update for updated findfn.

  • Loading branch information...
1 parent a465615 commit ea2c13c1165fbd3eb2fad957a572bd4dec0661cb @Raynes Raynes committed Sep 15, 2012
Showing with 10 additions and 7 deletions.
  1. +2 −2 project.clj
  2. +8 −5 src/lazybot/plugins/clojure.clj
View
@@ -4,7 +4,7 @@
[commons-lang/commons-lang "2.5"]
[commons-io/commons-io "1.4"]
[backtype/clj-time "0.3.2"]
- [clojail "1.0.1"]
+ [clojail "1.0.3"]
[clj-http "0.2.6"]
[irclj "0.4.1"]
[congomongo "0.1.9"]
@@ -26,7 +26,7 @@
[innuendo "0.1.4"]
[frinj "0.1.2"]
[tentacles "0.2.1"]
- [findfn "0.1.2"]]
+ [findfn "0.1.3"]]
:uberjar-name "lazybot.jar"
:main lazybot.run
:copy-deps true
@@ -31,11 +31,14 @@
docs (and docs (string/replace docs #"\s+" " "))]
(str (and macro "Macro ") arglists "; " docs))))
+(def tester
+ (conj secure-tester
+ (blanket "somnium"
+ "lazybot"
+ "irclj")))
+
(def sb
- (sandbox (conj secure-tester
- (blanket "somnium"
- "lazybot"
- "irclj"))
+ (sandbox tester
:transform pr-str
:init '(defmacro doc [s]
(if (special-symbol? s)
@@ -166,7 +169,7 @@
_ (sb argvec) ; a lame hack to get sandbox
; guarantees on eval-ing the user's args
user-args (eval argvec)]
- (->> user-args (apply f) vec str trim-with-paste))
+ (->> user-args (apply f tester) vec str trim-with-paste))
(catch Throwable e
(.getMessage e))))

0 comments on commit ea2c13c

Please sign in to comment.