Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[fix] stdlib/xhtml: Xml.fold was wrongly specialized to xhtml type

  • Loading branch information...
commit f0c5cfd47ced1cf3a5e419a00eb6539088f4890b 1 parent c2a7bc2
Jessica Castejon authored François-Régis Sinot committed
Showing with 2 additions and 2 deletions.
  1. +2 −2 stdlib/core/xhtml/xhtml.opa
View
4 stdlib/core/xhtml/xhtml.opa
@@ -465,8 +465,8 @@ Xml =
* @param the first element of the fold
* @param the xml to fold
*/
- fold(fun:(xml('a, 'b), 'c -> 'c), seed:'c, xhtml:xhtml): 'c =
- match xhtml with
+ fold(fun:(xml('a, 'b), 'c -> 'c), seed:'c, xml:xml): 'c =
+ match xml with
| { text=_ }
| { content_unsafe=_ }
| { xml_dialect=_ } -> seed
Please sign in to comment.
Something went wrong with that request. Please try again.