From 27f7a5778f1ae33b07472c2c5ad2571b2f1c2fc6 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 7 Dec 2017 10:52:21 -0700 Subject: [PATCH] Reformat the replacement rule. --- src/Rendering/DOT.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Rendering/DOT.hs b/src/Rendering/DOT.hs index 032e6703a..5f838b732 100644 --- a/src/Rendering/DOT.hs +++ b/src/Rendering/DOT.hs @@ -30,8 +30,8 @@ diffAlgebra d i = case d of Merge t -> termAlgebra t i Patch (Delete t1) -> termAlgebra t1 i `modifyHeadNode` setColour "red" Patch (Insert t2) -> termAlgebra t2 i `modifyHeadNode` setColour "green" - Patch (Replace t1 t2) -> let (i', g1) = termAlgebra t1 i `modifyHeadNode` setColour "red" in - (i', g1) <> (termAlgebra t2 (succ (maximum (i : i'))) `modifyHeadNode` setColour "green") + Patch (Replace t1 t2) -> let (i', g1) = termAlgebra t1 i `modifyHeadNode` setColour "red" + in (i', g1) <> (termAlgebra t2 (succ (maximum (i : i'))) `modifyHeadNode` setColour "green") where modifyHeadNode (i, g) f | n:ns <- graphNodes g = (i, g { graphNodes = f n : ns }) | otherwise = (i, g) setColour c n = n { nodeAttributes = Map.insert "color" c (nodeAttributes n) }