add underline to lazy-error elision

Unrepl · Dec 6, 2017 · 6bd8b5d · 6bd8b5d
1 parent 9b5ae9b
commit 6bd8b5d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/unravel/pprint.cljs b/src/unravel/pprint.cljs
@@ -88,7 +88,7 @@
                     (spans (-> x :form :form :cause))
                     [te/space
                      (let [cmd (str "/" (tags/elide (:form x)))]
-                       (ansi cmd (str "\33[31m" cmd "\33[m")))
+                       (ansi cmd (str "\33[31m\33[4m" cmd "\33[m")))
                      te/kv-close])
                   error (concat
                            [kv-open (ansi (str "#" (pr-str (:tag x)))