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