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