From d04c9b1493487a290557e94e5c7bc7d5fe90ede4 Mon Sep 17 00:00:00 2001
From: Robert Porter <robert.porter@rakuten.com>
Date: Wed, 16 Dec 2020 19:58:21 +0900
Subject: [PATCH] Node child manipulations return unit

---
 src/Web/DOM/Node.js   | 8 ++++----
 src/Web/DOM/Node.purs | 8 ++++----
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/Web/DOM/Node.js b/src/Web/DOM/Node.js
index 3098fec..9a35b57 100644
--- a/src/Web/DOM/Node.js
+++ b/src/Web/DOM/Node.js
@@ -130,7 +130,7 @@ exports.insertBefore = function (node1) {
   return function (node2) {
     return function (parent) {
       return function () {
-        return parent.insertBefore(node1, node2);
+        parent.insertBefore(node1, node2);
       };
     };
   };
@@ -139,7 +139,7 @@ exports.insertBefore = function (node1) {
 exports.appendChild = function (node) {
   return function (parent) {
     return function () {
-      return parent.appendChild(node);
+      parent.appendChild(node);
     };
   };
 };
@@ -148,7 +148,7 @@ exports.replaceChild = function (newChild) {
   return function (oldChild) {
     return function (parent) {
       return function () {
-        return parent.replaceChild(newChild, oldChild);
+        parent.replaceChild(newChild, oldChild);
       };
     };
   };
@@ -157,7 +157,7 @@ exports.replaceChild = function (newChild) {
 exports.removeChild = function (node) {
   return function (parent) {
     return function () {
-      return parent.removeChild(node);
+      parent.removeChild(node);
     };
   };
 };
diff --git a/src/Web/DOM/Node.purs b/src/Web/DOM/Node.purs
index 1cdb06d..46d60cd 100644
--- a/src/Web/DOM/Node.purs
+++ b/src/Web/DOM/Node.purs
@@ -176,14 +176,14 @@ foreign import _lookupNamespaceURI :: String -> Node -> Effect (Nullable String)
 foreign import isDefaultNamespace :: String -> Node -> Effect Boolean
 
 -- | Inserts the first node before the second as a child of the third node.
-foreign import insertBefore :: Node -> Node -> Node -> Effect Node
+foreign import insertBefore :: Node -> Node -> Node -> Effect Unit
 
 -- | Appends the first node to the child node list of the second node.
-foreign import appendChild :: Node -> Node -> Effect Node
+foreign import appendChild :: Node -> Node -> Effect Unit
 
 -- | Uses the first node as a replacement for the second node in the children
 -- | of the third node.
-foreign import replaceChild :: Node -> Node -> Node -> Effect Node
+foreign import replaceChild :: Node -> Node -> Node -> Effect Unit
 
 -- | Removes the first node from the children of the second node.
-foreign import removeChild :: Node -> Node -> Effect Node
+foreign import removeChild :: Node -> Node -> Effect Unit