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