Commit 3e8125e3 authored by Camil Staps's avatar Camil Staps 🐧

Fix diffToConsole

parent 68d5fba0
Pipeline #9517 passed with stage
in 3 minutes and 2 seconds
......@@ -39,12 +39,15 @@ where
color +++
if p` "(" "" +++
d.value +++
reset +++
concat (map ((+++) " " o display True) d.children) +++
color +++
if p` ")" "" +++
"\033[0m"
reset
where
color = case d.status of
Common -> "\033[0m"
Common -> reset
Added -> "\033[0;32m"
Removed -> "\033[0;31m"
reset = "\033[0m"
p` = p && not (isEmpty d.children)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment