{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module THREE.WebXRManager
(
WebXRManager (..)
, THREE.WebXRManager.new
) where
import Miso
import qualified THREE.Internal as THREE
newtype WebXRManager
= WebXRManager
{ WebXRManager -> JSVal
unWebXRManagerCamera :: JSVal
} deriving (WebXRManager -> IO Object
(WebXRManager -> IO Object) -> ToObject WebXRManager
forall a. (a -> IO Object) -> ToObject a
$ctoObject :: WebXRManager -> IO Object
toObject :: WebXRManager -> IO Object
ToObject)
new :: THREE.Three WebXRManager
new :: Three WebXRManager
new = (JSVal -> WebXRManager)
-> MisoString -> [MisoString] -> Three WebXRManager
forall args con.
ToArgs args =>
(JSVal -> con) -> MisoString -> args -> Three con
THREE.new JSVal -> WebXRManager
WebXRManager MisoString
"WebXRManager" ([] :: [MisoString])