add make-var-description to helpers

binaryage · Oct 16, 2016 · 6894a82 · 6894a82
1 parent d2944ee
commit 6894a82
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/lib/env_config/impl/helpers.clj b/src/lib/env_config/impl/helpers.clj
@@ -15,3 +15,8 @@
           (assoc m k v)))
       (dissoc m k))
     m))
+
+(defn ^:dynamic make-var-description [var-meta]
+  (let [orig-name (or (:var-name var-meta) "?")
+        orig-value (:var-value var-meta)]
+    (str "variable '" orig-name "' with value " (pr-str orig-value))))