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