Merge pull request #13 from manpages/attributes

Add setAttribute and getAttribute

Author: garyb

src/DOM/Node/Element.js

@@ -69,3 +69,22 @@ exports.getElementsByClassName = function (classNames) {
     };
   };
 };
+
+exports.setAttribute = function (name) {
+  return function (value) {
+    return function (element) {
+      return function () {
+        element.setAttribute(name, value);
+        return {};
+      };
+    };
+  };
+};
+
+exports.getAttribute = function (name) {
+  return function (element) {
+    return function () {
+      return element.getAttribute(name);
+    };
+  };
+};

src/DOM/Node/Element.purs

@@ -20,3 +20,6 @@ foreign import setClassName :: forall eff. String -> Element -> Eff (dom :: DOM
 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 getAttribute :: forall eff. String -> Element -> Eff (dom :: DOM | eff) (Nullable String)