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