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

fix simpleDiff

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