remove fancy characters from test output

This commit is contained in:
Joel Kaasinen
2020-05-08 10:42:56 +03:00
parent f0b977512b
commit c8d7aaa0e3
2 changed files with 3 additions and 3 deletions
+2 -2
View File
@@ -100,8 +100,8 @@ textBlue color = textAttr color "34"
showCheck :: Bool -> Outcome -> String
showCheck color Todo = "_"
showCheck color Pass = textBoldGreen color "\x2713"
showCheck color Fail = textBoldRed color "\x2715"
showCheck color Pass = textBoldGreen color "1"
showCheck color Fail = textBoldRed color "0"
showOutcome :: Bool -> Outcome -> String
showOutcome color Pass = textBoldGreen color "+++++ Pass"
+1 -1
View File
@@ -1092,7 +1092,7 @@ quadruple 1
===== EXERCISE 19
+++++ Pass
===== TOTAL
✓✓✕✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓✓
1101111111111111111
18 / 19</code></pre>
<p>As you can see, I’ve made a mistake in exercise 3. I can verify the mistake myself by loading my answers in GHCi:</p>
<pre><code>$ stack ghci Set1.hs