Deduplicate get/setClassName and classList (#74)

* Deduplicate set/getClassName & classList

* Update changelog

* Update HTMLElement.purs

Co-authored-by: Thomas Honeyman <[email protected]>

Author: JordanMartinez

CHANGELOG.md

@@ -6,6 +6,9 @@ Notable changes to this project are documented in this file. The format is based
 
 Breaking changes:
 - Move `getBoundingClientRect` to `purescript-web-dom` (#73 by @JordanMartinez)
+- Drop duplicated `set/getClassName` and `classList` (#74 by @JordanMartinez)
+
+  These three entities are already defined in `purescript-web-dom`
 
 New features:
 

src/Web/HTML/HTMLElement.js

@@ -57,28 +57,6 @@ export function setDir(dir) {
 
 // ----------------------------------------------------------------------------
 
-export function className(elt) {
-  return function () {
-    return elt.className;
-  };
-}
-
-export function setClassName(className) {
-  return function (elt) {
-    return function () {
-      elt.className = className;
-    };
-  };
-}
-
-export function classList(element) {
-  return function () {
-    return element.classList;
-  };
-}
-
-// ----------------------------------------------------------------------------
-
 export function hidden(elt) {
   return function () {
     return elt.hidden;

src/Web/HTML/HTMLElement.purs

@@ -18,9 +18,6 @@ module Web.HTML.HTMLElement
   , setLang
   , dir
   , setDir
-  , className
-  , setClassName
-  , classList
   , hidden
   , setHidden
   , tabIndex
@@ -50,7 +47,6 @@ import Data.Nullable (Nullable, toMaybe)
 import Effect (Effect)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.DOM (ChildNode)
-import Web.DOM.DOMTokenList (DOMTokenList)
 import Web.DOM.Element (Element)
 import Web.DOM.Internal.Types (Node)
 import Web.DOM.NonDocumentTypeChildNode (NonDocumentTypeChildNode)
@@ -106,11 +102,6 @@ foreign import setLang :: String -> HTMLElement -> Effect Unit
 foreign import dir :: HTMLElement -> Effect String
 foreign import setDir :: String -> HTMLElement -> Effect Unit
 
-foreign import className :: HTMLElement -> Effect String
-foreign import setClassName :: String -> HTMLElement -> Effect Unit
-
-foreign import classList :: HTMLElement -> Effect DOMTokenList
-
 foreign import hidden :: HTMLElement -> Effect Boolean
 foreign import setHidden :: Boolean -> HTMLElement -> Effect Unit