diff options
| author | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-08-30 22:53:32 -0400 |
|---|---|---|
| committer | dumpfmprod <dumpfmprod@ubuntu.(none)> | 2010-08-30 22:53:32 -0400 |
| commit | 529a5625175d39fa2d96bda4331a1cf2da63f0f7 (patch) | |
| tree | 0dbd12567185ee7059e8b4d407ec35876ab8222e /src/utils.clj | |
| parent | 3bbdee138c5de4b2209bd4c7f8046664442d87e2 (diff) | |
| parent | 968faa6192e7c95a7b1cbfdd5d35fb7253b8984f (diff) | |
Merge branch 'master' of /pichat/repo
Diffstat (limited to 'src/utils.clj')
| -rwxr-xr-x | src/utils.clj | 8 |
1 files changed, 4 insertions, 4 deletions
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)))) |