Remove Unit argument from create functions. (purescript-web#46)

* Remove Unit argument from create functions. * Remove unused Unit import Co-authored-by: JordanMartinez <jordanalex.martinez@gmail.com>
working-group-purescript-es · Dec 12, 2020 · ed00360 · ed00360
1 parent cc6c964
commit ed00360
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 12 deletions.
diff --git a/src/Web/HTML/HTMLAudioElement.js b/src/Web/HTML/HTMLAudioElement.js
@@ -1,9 +1,7 @@
 "use strict";
 
 exports.create = function () {
-  return function () {
-    return new Audio();
-  };
+  return new Audio();
 };
 
 exports.createWithURL = function (url) {

diff --git a/src/Web/HTML/HTMLAudioElement.purs b/src/Web/HTML/HTMLAudioElement.purs
@@ -1,4 +1,4 @@
-module Web.HTML.HTMLAudioElement 
+module Web.HTML.HTMLAudioElement
   ( HTMLAudioElement
   , fromHTMLElement
   , fromElement
@@ -21,7 +21,6 @@ module Web.HTML.HTMLAudioElement
 
 import Data.Maybe (Maybe)
 import Effect (Effect)
-import Prelude (Unit)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.DOM (ChildNode, Element, Node, NonDocumentTypeChildNode, ParentNode)
 import Web.Event.EventTarget (EventTarget)
@@ -79,7 +78,7 @@ toParentNode = unsafeCoerce
 toEventTarget :: HTMLAudioElement -> EventTarget
 toEventTarget = unsafeCoerce
 
-foreign import create :: Unit -> Effect HTMLAudioElement
+foreign import create :: Effect HTMLAudioElement
 foreign import createWithURL :: String -> Effect HTMLAudioElement
 
 create' :: String -> Effect HTMLAudioElement

diff --git a/src/Web/HTML/HTMLImageElement.js b/src/Web/HTML/HTMLImageElement.js
@@ -1,9 +1,7 @@
 "use strict";
 
 exports.create = function () {
-  return function () {
-    return new Image();
-  };
+  return new Image();
 };
 
 exports.createWithDimensions = function (width) {
@@ -190,7 +188,6 @@ exports.setReferrerPolicy = function (referrerPolicy) {
   };
 };
 
-
 // ----------------------------------------------------------------------------
 
 exports._decoding = function (image) {

diff --git a/src/Web/HTML/HTMLImageElement.purs b/src/Web/HTML/HTMLImageElement.purs
@@ -108,8 +108,7 @@ toParentNode = unsafeCoerce
 toEventTarget :: HTMLImageElement -> EventTarget
 toEventTarget = unsafeCoerce
 
-
-foreign import create :: Unit -> Effect HTMLImageElement
+foreign import create :: Effect HTMLImageElement
 foreign import createWithDimensions :: Int -> Int -> Effect HTMLImageElement
 
 create' :: Int -> Int -> Effect HTMLImageElement