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