Added muting emails

1 files changed, 4 insertions, 1 deletions

diff --git a/src/utils.clj b/src/utils.clj
index da4d4be..d6a95e5 100755
--- a/src/utils.clj
+++ b/src/utils.clj
@@ -29,6 +29,9 @@
 (defn swap [f]
   (fn [& more] (apply f (reverse more))))
 
+(defn join [lst int]
+  (apply str (interpose int lst)))
+
 (def YYYYMMDD-format (new SimpleDateFormat "yyyyMMdd"))
 
 (defn today []
@@ -160,6 +163,6 @@
   (session :is_admin))
 
 (defmacro if-vip [e]
-  "Evaluates expr if user is vipm otherwise returns 404 string. Can only be used
+  "Evaluates expr if user is vip otherwise returns 404. Can only be used
    where session is defined."
   `(if (is-vip? ~'session) ~e (unknown-page)))