Merge pull request #12 from bosyi/master

Fixed checkValidity, added reportValidity

Author: garyb

src/Web/HTML/HTMLButtonElement.js

@@ -194,7 +194,15 @@ exports.validationMessage = function (button) {
 
 exports.checkValidity = function (button) {
   return function () {
-    return button.checkValidity;
+    return button.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (button) {
+  return function () {
+    return button.reportValidity();
   };
 };
 

src/Web/HTML/HTMLButtonElement.purs

@@ -39,6 +39,7 @@ module Web.HTML.HTMLButtonElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   , labels
   ) where
@@ -144,6 +145,8 @@ foreign import validationMessage :: HTMLButtonElement -> Effect String
 
 foreign import checkValidity :: HTMLButtonElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLButtonElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLButtonElement -> Effect Unit
 
 foreign import labels :: HTMLButtonElement -> Effect NodeList

src/Web/HTML/HTMLFieldSetElement.js

@@ -82,7 +82,15 @@ exports.validationMessage = function (fieldset) {
 
 exports.checkValidity = function (fieldset) {
   return function () {
-    return fieldset.checkValidity;
+    return fieldset.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (fieldset) {
+  return function () {
+    return fieldset.reportValidity();
   };
 };
 

src/Web/HTML/HTMLFieldSetElement.purs

@@ -25,6 +25,7 @@ module Web.HTML.HTMLFieldSetElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   ) where
 
@@ -109,4 +110,6 @@ foreign import validationMessage :: HTMLFieldSetElement -> Effect String
 
 foreign import checkValidity :: HTMLFieldSetElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLFieldSetElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLFieldSetElement -> Effect Unit

src/Web/HTML/HTMLFormElement.js

@@ -173,3 +173,11 @@ exports.checkValidity = function (form) {
     return form.checkValidity();
   };
 };
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (form) {
+  return function () {
+    return form.reportValidity();
+  };
+};

src/Web/HTML/HTMLFormElement.purs

@@ -90,3 +90,4 @@ foreign import length :: HTMLFormElement -> Effect Int
 foreign import submit :: HTMLFormElement -> Effect Unit
 foreign import reset :: HTMLFormElement -> Effect Unit
 foreign import checkValidity :: HTMLFormElement -> Effect Boolean
+foreign import reportValidity :: HTMLFormElement -> Effect Boolean

src/Web/HTML/HTMLInputElement.js

@@ -614,7 +614,15 @@ exports.validationMessage = function (input) {
 
 exports.checkValidity = function (input) {
   return function () {
-    return input.checkValidity;
+    return input.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (input) {
+  return function () {
+    return input.reportValidity();
   };
 };
 

src/Web/HTML/HTMLInputElement.purs

@@ -91,6 +91,7 @@ module Web.HTML.HTMLInputElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   , labels
   , select
@@ -304,6 +305,8 @@ foreign import validationMessage :: HTMLInputElement -> Effect String
 
 foreign import checkValidity :: HTMLInputElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLInputElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLInputElement -> Effect Unit
 
 foreign import labels :: HTMLInputElement -> Effect NodeList

src/Web/HTML/HTMLKeygenElement.js

@@ -122,7 +122,15 @@ exports.validationMessage = function (keygen) {
 
 exports.checkValidity = function (keygen) {
   return function () {
-    return keygen.checkValidity;
+    return keygen.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (keygen) {
+  return function () {
+    return keygen.reportValidity();
   };
 };
 

src/Web/HTML/HTMLKeygenElement.purs

@@ -30,6 +30,7 @@ module Web.HTML.HTMLKeygenElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   , labels
   ) where
@@ -123,6 +124,8 @@ foreign import validationMessage :: HTMLKeygenElement -> Effect String
 
 foreign import checkValidity :: HTMLKeygenElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLKeygenElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLKeygenElement -> Effect Unit
 
 foreign import labels :: HTMLKeygenElement -> Effect NodeList

src/Web/HTML/HTMLObjectElement.js

@@ -146,7 +146,15 @@ exports.validationMessage = function (object) {
 
 exports.checkValidity = function (object) {
   return function () {
-    return object.checkValidity;
+    return object.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (object) {
+  return function () {
+    return object.reportValidity();
   };
 };
 

src/Web/HTML/HTMLObjectElement.purs

@@ -33,6 +33,7 @@ module Web.HTML.HTMLObjectElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   ) where
 
@@ -134,6 +135,8 @@ foreign import validationMessage :: HTMLObjectElement -> Effect String
 
 foreign import checkValidity :: HTMLObjectElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLObjectElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLObjectElement -> Effect Unit
 
 --   legacycaller any (any... arguments);

src/Web/HTML/HTMLOutputElement.js

@@ -90,7 +90,15 @@ exports.validationMessage = function (output) {
 
 exports.checkValidity = function (output) {
   return function () {
-    return output.checkValidity;
+    return output.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (output) {
+  return function () {
+    return output.reportValidity();
   };
 };
 

src/Web/HTML/HTMLOutputElement.purs

@@ -26,6 +26,7 @@ module Web.HTML.HTMLOutputElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   , labels
   ) where
@@ -114,6 +115,8 @@ foreign import validationMessage :: HTMLOutputElement -> Effect String
 
 foreign import checkValidity :: HTMLOutputElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLOutputElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLOutputElement -> Effect Unit
 
 foreign import labels :: HTMLOutputElement -> Effect NodeList

src/Web/HTML/HTMLSelectElement.js

@@ -194,7 +194,15 @@ exports.validationMessage = function (select) {
 
 exports.checkValidity = function (select) {
   return function () {
-    return select.checkValidity;
+    return select.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (select) {
+  return function () {
+    return select.reportValidity();
   };
 };
 

src/Web/HTML/HTMLSelectElement.purs

@@ -39,6 +39,7 @@ module Web.HTML.HTMLSelectElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   , labels
   ) where
@@ -155,6 +156,8 @@ foreign import validationMessage :: HTMLSelectElement -> Effect String
 
 foreign import checkValidity :: HTMLSelectElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLSelectElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLSelectElement -> Effect Unit
 
 foreign import labels :: HTMLSelectElement -> Effect NodeList

src/Web/HTML/HTMLTextAreaElement.js

@@ -290,7 +290,15 @@ exports.validationMessage = function (textarea) {
 
 exports.checkValidity = function (textarea) {
   return function () {
-    return textarea.checkValidity;
+    return textarea.checkValidity();
+  };
+};
+
+// ----------------------------------------------------------------------------
+
+exports.reportValidity = function (textarea) {
+  return function () {
+    return textarea.reportValidity();
   };
 };
 

src/Web/HTML/HTMLTextAreaElement.purs

@@ -51,6 +51,7 @@ module Web.HTML.HTMLTextAreaElement
   , validity
   , validationMessage
   , checkValidity
+  , reportValidity
   , setCustomValidity
   , labels
   , select
@@ -188,6 +189,8 @@ foreign import validationMessage :: HTMLTextAreaElement -> Effect String
 
 foreign import checkValidity :: HTMLTextAreaElement -> Effect Boolean
 
+foreign import reportValidity :: HTMLTextAreaElement -> Effect Boolean
+
 foreign import setCustomValidity :: String -> HTMLTextAreaElement -> Effect Unit
 
 foreign import labels :: HTMLTextAreaElement -> Effect NodeList