From 968faa6192e7c95a7b1cbfdd5d35fb7253b8984f Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Mon, 30 Aug 2010 22:52:44 -0400 Subject: Fixed directory queries and heart animations --- src/utils.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/utils.clj') diff --git a/src/utils.clj b/src/utils.clj index 7f56f61..dd5530a 100755 --- a/src/utils.clj +++ b/src/utils.clj @@ -58,10 +58,10 @@ (declare stringify-and-escape) (defn escape-html-deep [o] (if (map? o) - (stringify-and-escape o) - (if (seq? o) - (map escape-html-deep o) - (escape-html o)))) + (stringify-and-escape o) + (cond (seq? o) (map escape-html-deep o) + (or (true? o) (false? o)) o + :else (escape-html o)))) (defn stringify-and-escape [m] (zipmap (map str* (keys m)) (map escape-html-deep (vals m)))) -- cgit v1.2.3-70-g09d2