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