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 ...@@ -73,10 +73,11 @@ 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=[]} ]
, {status=OnlyRight, value=right, children=[]} | otherwise = [ {status=OnlyLeft, value=left, children=[]}
] , {status=OnlyRight, value=right, children=[]}
]
:: *ProcessOutput = :: *ProcessOutput =
{ lines :: ![String] { 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