iritmaximus/haskell
1
0
Fork 0
mirror of https://github.com/iritmaximus/haskell.git synced 2026-10-12 19:13:39 +03:00
Code Issues Packages Projects Releases Wiki Activity

remove fancy characters from test output

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
exercises/Mooc/Test.hs
+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"