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