Permalink
Browse files

remove superflous case

  • Loading branch information...
1 parent 6334c0c commit 86446cfa21db7098e068366352f00273ee14c483 @aerosol aerosol committed Nov 2, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 src/binpp.erl
View
8 src/binpp.erl
@@ -133,11 +133,11 @@ diff([], [H2|R2], LD, RD) ->
diff([H1|R1], [], LD, RD) ->
diff(R1, [], [H1|LD], ["??"|RD]);
+diff([H1|R1], [H2|R2], LD, RD) when H1 =:= H2 ->
+ diff(R1, R2, ["--"|LD], ["--"|RD]);
+
diff([H1|R1], [H2|R2], LD, RD) ->
- case H1 =:= H2 of
- true -> diff(R1, R2, ["--"|LD], ["--"|RD]);
- false -> diff(R1, R2, [H1|LD], [H2|RD])
- end.
+ diff(R1, R2, [H1|LD], [H2|RD]).
diff(L1, L2) when is_list(L1), is_list(L2) ->
diff(L1, L2, [], []).

0 comments on commit 86446cf

Please sign in to comment.