fix simpleDiff

cleantest.icl

@@ -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]