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