Commit 7fcd0b86 authored by Steffen Michels's avatar Steffen Michels

fix simpleDiff

parent 082fc87e
...@@ -73,8 +73,9 @@ gDiff{|Expr|} x y = case (x,y) of ...@@ -73,8 +73,9 @@ gDiff{|Expr|} x y = case (x,y) of
_ -> simpleDiff (toString x) (toString y) _ -> simpleDiff (toString x) (toString y)
simpleDiff :: !String !String -> [Diff] simpleDiff :: !String !String -> [Diff]
simpleDiff left right = simpleDiff left right
[ {status=OnlyLeft, value=left, children=[]} | left == right = [ {status=Common, value=left, children=[]} ]
| otherwise = [ {status=OnlyLeft, value=left, children=[]}
, {status=OnlyRight, value=right, children=[]} , {status=OnlyRight, value=right, 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