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