Merge pull request #19 from sharkdp/fix-types

Fix types of setId, setClassName, setAttribute and setTextContent

Author: garyb

docs/DOM/Node/Element.md

@@ -33,7 +33,7 @@ id :: forall eff. Element -> Eff (dom :: DOM | eff) ElementId
 #### `setId`
 
 ``` purescript
-setId :: forall eff. ElementId -> Element -> Eff (dom :: DOM | eff) ElementId
+setId :: forall eff. ElementId -> Element -> Eff (dom :: DOM | eff) Unit
 ```
 
 #### `className`
@@ -45,7 +45,7 @@ className :: forall eff. Element -> Eff (dom :: DOM | eff) String
 #### `setClassName`
 
 ``` purescript
-setClassName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) String
+setClassName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) Unit
 ```
 
 #### `getElementsByTagName`
@@ -69,7 +69,7 @@ getElementsByClassName :: forall eff. String -> Element -> Eff (dom :: DOM | eff
 #### `setAttribute`
 
 ``` purescript
-setAttribute :: forall eff. String -> String -> Element -> Eff (dom :: DOM | eff) String
+setAttribute :: forall eff. String -> String -> Element -> Eff (dom :: DOM | eff) Unit
 ```
 
 #### `getAttribute`

docs/DOM/Node/Node.md

@@ -139,7 +139,7 @@ cases.
 #### `setTextContent`
 
 ``` purescript
-setTextContent :: forall eff. Node -> Eff (dom :: DOM | eff) String
+setTextContent :: forall eff. Node -> Eff (dom :: DOM | eff) Unit
 ```
 
 If the node type is document fragment, element, text, processing

src/DOM/Node/Element.purs

@@ -1,5 +1,7 @@
 module DOM.Node.Element where
 
+import Prelude (Unit())
+
 import Control.Monad.Eff (Eff())
 
 import Data.Nullable (Nullable())
@@ -13,13 +15,13 @@ foreign import localName :: Element -> String
 foreign import tagName :: Element -> String
 
 foreign import id :: forall eff. Element -> Eff (dom :: DOM | eff) ElementId
-foreign import setId :: forall eff. ElementId -> Element -> Eff (dom :: DOM | eff) ElementId
+foreign import setId :: forall eff. ElementId -> Element -> Eff (dom :: DOM | eff) Unit
 foreign import className :: forall eff. Element -> Eff (dom :: DOM | eff) String
-foreign import setClassName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) String
+foreign import setClassName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) Unit
 
 foreign import getElementsByTagName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) HTMLCollection
 foreign import getElementsByTagNameNS :: forall eff. Nullable String -> String -> Element -> Eff (dom :: DOM | eff) HTMLCollection
 foreign import getElementsByClassName :: forall eff. String -> Element -> Eff (dom :: DOM | eff) HTMLCollection
 
-foreign import setAttribute :: forall eff. String -> String -> Element -> Eff (dom :: DOM | eff) String
+foreign import setAttribute :: forall eff. String -> String -> Element -> Eff (dom :: DOM | eff) Unit
 foreign import getAttribute :: forall eff. String -> Element -> Eff (dom :: DOM | eff) (Nullable String)

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) String
+foreign import setTextContent :: forall eff. Node -> Eff (dom :: DOM | eff) Unit
 
 -- | Removes empty text nodes and then combines any remaining text nodes that
 -- | are contiguous.