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