Permalink
Browse files

[enhance] xhtml.opa: append class when updating node instead of prepe…

…nd (and remove unique sorting)
  • Loading branch information...
1 parent 9a34abe commit 3d3b274657e51ba17b420da2604c878cfc16def3 @Aqua-Ye Aqua-Ye committed Oct 20, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 stdlib/core/xhtml/xhtml.opa
@@ -1130,7 +1130,7 @@ Xhtml =
{text=_}{content_unsafe=_} -> <div class="{value}">{x}</div>
{args=_ namespace=_ tag=_ content=_ ~specific_attributes} as x ->
specific_attributes = specific_attributes ? default_attributes
- specific_attributes = some({ specific_attributes with class = List.add_uniq(String.ordering, value, specific_attributes.class) })
+ specific_attributes = some({ specific_attributes with class = specific_attributes.class ++ [value] })
@opensums({x with ~specific_attributes})
_ -> <div class="{value}">{x}</div>
end

0 comments on commit 3d3b274

Please sign in to comment.