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