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