Permalink
Browse files

Minor stuff.

  • Loading branch information...
lnostdal committed May 7, 2012
1 parent 47246de commit cc0e2bbb210404d4e46f1e3a8de589c35430fc5d
Showing with 4 additions and 3 deletions.
  1. +1 −0 src/symbolicweb/application.clj
  2. +2 −2 src/symbolicweb/database_common.clj
  3. +1 −1 src/symbolicweb/macros.clj
@@ -40,6 +40,7 @@ On page load (or refresh), the order of things executed are:
(defn session-get [application key]
(dosync
(when-let [res (key @(:session-data @application))]
+ ;; Deref the ValueModel when found.
@res)))
@@ -189,7 +189,7 @@ If ABORT-TRANSACTION is called, its argument will be the return value of WITH-SW
"SW --> DB.
Swaps - with _ for INPUT-KEY and passes INPUT-VALUE through as is."
(when input-key
- [(keyword (str/replace (name input-key) #"-" "_"))
+ [(keyword (str/replace (name input-key) \- \_))
input-value]))
(defn db-handle-input [db-cache object input-key input-value]
@@ -204,7 +204,7 @@ represented by INPUT-KEY, is not to be stored in the DB."
"DB --> SW.
Swaps _ with - for OUTPUT-KEY and passes OUTPUT-VALUE through as is."
(when output-key
- [(keyword (str/replace (name output-key) #"_" "-"))
+ [(keyword (str/replace (name output-key) \_ \-))
output-value]))
(defn db-handle-output [db-cache object ^clojure.lang.Keyword output-key output-value]
@@ -43,7 +43,7 @@
(catch Throwable e ;; TODO: Throwable is "wrong", but it also actually works.
(try
;; TODO: Send this stuff to a ValueModel which'll print to STDOUT and present it to the user and what not.
- (clojure.stacktrace/print-stack-trace e 50)
+ (clojure.stacktrace/print-stack-trace e 100)
(catch Throwable e
(println "%WITH-ERRORS-LOGGED: Dodge überfail... :(")
(Thread/sleep 1000)))))) ;; Make sure we aren't flooded in case some loop gets stuck.

0 comments on commit cc0e2bb

Please sign in to comment.