create new Audio

Author: toastal

src/Web/HTML/HTMLAudioElement.js

@@ -0,0 +1,14 @@
+/* global Audio */
+"use strict";
+
+exports.create = function () {
+  return function () {
+    return new Audio();
+  };
+};
+
+exports.createWithURL = function (url) {
+  return function () {
+    return new Audio(url);
+  };
+};

src/Web/HTML/HTMLAudioElement.purs

@@ -1,4 +1,23 @@
-module Web.HTML.HTMLAudioElement where
+module Web.HTML.HTMLAudioElement 
+  ( HTMLAudioElement
+  , fromHTMLElement
+  , fromElement
+  , fromNode
+  , fromChildNode
+  , fromNonDocumentTypeChildNode
+  , fromParentNode
+  , fromEventTarget
+  , toHTMLMediaElement
+  , toHTMLElement
+  , toElement
+  , toNode
+  , toChildNode
+  , toNonDocumentTypeChildNode
+  , toParentNode
+  , toEventTarget
+  , create
+  , create'
+  ) where
 
 import Data.Maybe (Maybe)
 import Unsafe.Coerce (unsafeCoerce)
@@ -57,3 +76,9 @@ toParentNode = unsafeCoerce
 
 toEventTarget :: HTMLAudioElement -> EventTarget
 toEventTarget = unsafeCoerce
+
+foreign import create :: Unit -> Effect HTMLAudioElement
+foreign import createWithURL :: String -> Effect HTMLAudioElement
+
+create' :: String → Effect HTMLAudioElement
+create' = createWithURL