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