Extract DocumentFragment

Author: nojaf

src/DOMAPI/DocumentFragment.js

@@ -2,86 +2,98 @@ open DOMAPI
 open EventAPI
 
 /**
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment)
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragmentFragment)
 */
 @new
 external make: unit => documentFragment = "DocumentFragment"
 
-include Node.Impl({
-  type t = documentFragment
-})
+module Impl = (
+  T: {
+    type t
+  },
+) => {
+  include Node.Impl({
+    type t = T.t
+  })
 
-/**
-Returns the first element within node's descendants whose ID is elementId.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/getElementById)
+  external asDocumentFragment: T.t => documentFragment = "%identity"
+
+  /**
+Inserts nodes after the last child of node, while replacing strings in nodes with equivalent Text nodes.
+
+Throws a "HierarchyRequestError" DOMException if the constraints of the node tree are violated.
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/append)
 */
-@send
-external getElementById: (documentFragment, string) => element = "getElementById"
+  @send
+  external append: (T.t, node) => unit = "append"
 
-/**
-Inserts nodes before the first child of node, while replacing strings in nodes with equivalent Text nodes.
+  /**
+Inserts nodes after the last child of node, while replacing strings in nodes with equivalent Text nodes.
 
 Throws a "HierarchyRequestError" DOMException if the constraints of the node tree are violated.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/prepend)
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/append)
 */
-@send
-external prepend: (documentFragment, node) => unit = "prepend"
+  @send
+  external append2: (T.t, string) => unit = "append"
 
-/**
+  /**
+Returns the first element within node's descendants whose ID is elementId.
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/getElementById)
+*/
+  @send
+  external getElementById: (T.t, string) => element = "getElementById"
+
+  /**
 Inserts nodes before the first child of node, while replacing strings in nodes with equivalent Text nodes.
 
 Throws a "HierarchyRequestError" DOMException if the constraints of the node tree are violated.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/prepend)
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/prepend)
 */
-@send
-external prepend2: (documentFragment, string) => unit = "prepend"
+  @send
+  external prepend: (T.t, node) => unit = "prepend"
 
-/**
-Inserts nodes after the last child of node, while replacing strings in nodes with equivalent Text nodes.
+  /**
+Inserts nodes before the first child of node, while replacing strings in nodes with equivalent Text nodes.
 
 Throws a "HierarchyRequestError" DOMException if the constraints of the node tree are violated.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/append)
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/prepend)
 */
-@send
-external append: (documentFragment, node) => unit = "append"
+  @send
+  external prepend2: (T.t, string) => unit = "prepend"
 
-/**
-Inserts nodes after the last child of node, while replacing strings in nodes with equivalent Text nodes.
+  /**
+Returns the first element that is a descendant of node that matches selectors.
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/querySelector)
+*/
+  @send
+  external querySelector: (T.t, string) => element = "querySelector"
 
-Throws a "HierarchyRequestError" DOMException if the constraints of the node tree are violated.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/append)
+  /**
+Returns all element descendants of node that match selectors.
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/querySelectorAll)
 */
-@send
-external append2: (documentFragment, string) => unit = "append"
+  @send
+  external querySelectorAll: (T.t, string) => nodeList = "querySelectorAll"
 
-/**
+  /**
 Replace all children of node with nodes, while replacing strings in nodes with equivalent Text nodes.
 
 Throws a "HierarchyRequestError" DOMException if the constraints of the node tree are violated.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/replaceChildren)
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/replaceChildren)
 */
-@send
-external replaceChildren: (documentFragment, node) => unit = "replaceChildren"
+  @send
+  external replaceChildren: (T.t, node) => unit = "replaceChildren"
 
-/**
+  /**
 Replace all children of node with nodes, while replacing strings in nodes with equivalent Text nodes.
 
 Throws a "HierarchyRequestError" DOMException if the constraints of the node tree are violated.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/replaceChildren)
+[Read more on MDN](https://developer.mozilla.org/docs/Web/API/DocumentFragment/replaceChildren)
 */
-@send
-external replaceChildren2: (documentFragment, string) => unit = "replaceChildren"
+  @send
+  external replaceChildren2: (T.t, string) => unit = "replaceChildren"
+}
 
-/**
-Returns the first element that is a descendant of node that matches selectors.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/querySelector)
-*/
-@send
-external querySelector: (documentFragment, string) => element = "querySelector"
-
-/**
-Returns all element descendants of node that match selectors.
-[Read more on MDN](https://developer.mozilla.org/docs/Web/API/Document/querySelectorAll)
-*/
-@send
-external querySelectorAll: (documentFragment, string) => nodeList = "querySelectorAll"
+include Impl({
+  type t = documentFragment
+})