Skip to content

C
clean-platform
Commit 3e8125e3 authored by Camil Staps's avatar Camil Staps 🐧
Browse files
Options

Fix diffToConsole

parent 68d5fba0
Pipeline #9517 passed with stage
    in 3 minutes and 2 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 5 additions and 2 deletions
    src/libraries/OS-Independent/Data/Generics/GenDiff.icl
    View file @ 3e8125e3
    ......@@ -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