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