Add srcObject.

Allows setting the stream on <audio> / <video> elements. Useful for camera.

Author: dmjio

src/Miso/Media.hs

@@ -27,6 +27,7 @@ module Miso.Media
   , play
   , pause
   , getUserMedia
+  , srcObject
   -- *** Properties
   , autoplay
   , controls
@@ -60,7 +61,7 @@ import qualified Language.Javascript.JSaddle as JS
 import qualified Miso.FFI.Internal as FFI
 import           Miso.FFI
 import           Miso.Event
-import           Miso.Effect
+import           Miso.Effect hiding ((<#))
 import           Miso.String
 -----------------------------------------------------------------------------
 newtype Media = Media JSVal
@@ -215,6 +216,10 @@ userMedia = UserMedia True True
 -----------------------------------------------------------------------------
 type Stream = JSVal
 -----------------------------------------------------------------------------
+-- | Sets the `srcObject` on audio or video elements.
+srcObject :: Stream -> Media -> JSM ()
+srcObject stream (Media media) = media <# ("srcObject" :: MisoString) $ stream
+-----------------------------------------------------------------------------
 -- | Get access to user's media devices.
 --
 -- <https://developer.mozilla.org/en-US/docs/Web/API/MediaDevices/getUserMedia>