reflex-dom refactor compat

WebcamWidget.hs

-- webcamWidget :: (DomBuilderSpace m ~ GhcjsDomSpace, PostBuild t m, m ~ ImmediateDomBuilderT t (Performable m)) => m ()
webcamWidget :: MonadWidget t m => m ()
webcamWidget = mdo
  pb <- getPostBuild
  doc <- askDocument

  vidAttrs <- holdDyn Nothing streamUrl >>= mapDyn
    (\u -> "autoplay" =: "true" <> maybe mempty ("src" =:) u)

  vid <- fst <$> elDynAttr' "video" vidAttrs (return ())
  streamUrl <- performEvent $ ffor pb $ \() -> liftIO $ do
    Just win <- currentWindow
    Just nav <- getNavigator win
    let htmlVid  = castToHTMLVideoElement (_el_element vid)
    dict <- Dictionary <$> toJSVal_aeson (A.object [T.pack "video" A..= ("true" :: String)])
    stream <- getUserMedia nav (Just dict)
    createObjectURLStream' (Just stream)

  return ()