From 7b068fe3680a13338e07df2fbec156cf5db4b1e5 Mon Sep 17 00:00:00 2001
From: sharkdp <davidpeter@web.de>
Date: Tue, 25 Aug 2015 23:33:49 +0200
Subject: [PATCH] Fix setTextContent type and FFI code

---
 docs/DOM/Node/Node.md  | 2 +-
 src/DOM/Node/Node.js   | 2 +-
 src/DOM/Node/Node.purs | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/docs/DOM/Node/Node.md b/docs/DOM/Node/Node.md
index fc7a5db..3a64985 100644
--- a/docs/DOM/Node/Node.md
+++ b/docs/DOM/Node/Node.md
@@ -139,7 +139,7 @@ cases.
 #### `setTextContent`
 
 ``` purescript
-setTextContent :: forall eff. Node -> Eff (dom :: DOM | eff) Unit
+setTextContent :: forall eff. String -> Node -> Eff (dom :: DOM | eff) Unit
 ```
 
 If the node type is document fragment, element, text, processing
diff --git a/src/DOM/Node/Node.js b/src/DOM/Node/Node.js
index a9bd525..55161de 100644
--- a/src/DOM/Node/Node.js
+++ b/src/DOM/Node/Node.js
@@ -59,7 +59,7 @@ exports.textContent = getEffProp("textContent");
 exports.setTextContent = function (value) {
   return function (node) {
     return function () {
-      node.nodeValue = value;
+      node.textContent = value;
       return {};
     };
   };
diff --git a/src/DOM/Node/Node.purs b/src/DOM/Node/Node.purs
index cd87b96..55a9d0a 100644
--- a/src/DOM/Node/Node.purs
+++ b/src/DOM/Node/Node.purs
@@ -72,7 +72,7 @@ foreign import textContent :: forall eff. Node -> Eff (dom :: DOM | eff) String
 -- | If the node type is document fragment, element, text, processing
 -- | instruction, or comment this allows the node's data to be changed, or has
 -- | no effect in all other cases.
-foreign import setTextContent :: forall eff. Node -> Eff (dom :: DOM | eff) Unit
+foreign import setTextContent :: forall eff. String -> Node -> Eff (dom :: DOM | eff) Unit
 
 -- | Removes empty text nodes and then combines any remaining text nodes that
 -- | are contiguous.