Permalink
Browse files

[cleanup] xhtml.opa: remove useless code

  • Loading branch information...
1 parent c9648ac commit abe604f3e9099b2ba65db30523ade7cb81c9f356 @OpaOnWindowsNow OpaOnWindowsNow committed Feb 9, 2012
Showing with 2 additions and 8 deletions.
  1. +2 −8 stdlib/core/xhtml/xhtml.opa
@@ -482,9 +482,9 @@ Xml =
| { content_unsafe=_ }
| { xml_dialect=_ } -> fun(elt)
| { ~fragment } -> {fragment = List.map(aux, fragment) }
- | { ~tag; ~namespace; ~args; ~content; ~specific_attributes } ->
+ | { ~content ... } as r ->
content = List.map(aux, content) ;
- fun({ ~tag; ~namespace; ~args; content=content; ~specific_attributes } : xml)
+ fun({r with content=content} <: xml )
aux(element)
}}
@@ -733,9 +733,6 @@ Xhtml =
| {some = ~{js_code_unsafe html_code_unsafe}} ->
do Buf.add(html_buffer,html_code_unsafe)
Buf.add(js_buffer,js_code_unsafe)
- | _ ->
- Log.error("Xhtml.to_serialize_string","Incorrect XHTML extensions")
- //This should never happen, by type guarantees -- however, I've spotted a [Magic.id] somewhere in this file
end
| ~{ namespace tag args content specific_attributes } ->
@@ -828,9 +825,6 @@ Xhtml =
do Buf.add(js_buffer,"\n.css(\{ ")
iter_tell_me_if_i_am_last((~{name value}, last ->
do Buf.add(js_buffer,"'")
-
-
-
do Buf.add(js_buffer,name)
do Buf.add(js_buffer,"': '")
do Buf.add(js_buffer,value)

0 comments on commit abe604f

Please sign in to comment.