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