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