generated from tpl/purs
22 lines
549 B
Plaintext
22 lines
549 B
Plaintext
module Mujoco.Wasm where
|
|
|
|
import Prelude
|
|
|
|
import Control.Promise (Promise)
|
|
import Control.Promise as Promise
|
|
import Effect (Effect)
|
|
import Effect.Aff (Aff)
|
|
import Effect.Class (liftEffect)
|
|
import Mujoco.XML.Node as XML
|
|
|
|
foreign import data Mujoco :: Type
|
|
foreign import data Spec :: Type
|
|
|
|
foreign import loadMujoco :: Effect (Promise Mujoco)
|
|
foreign import parseXMLString :: Mujoco -> String -> Effect Spec
|
|
|
|
renderSpec :: XML.Node -> Aff Spec
|
|
renderSpec node = do
|
|
mj <- Promise.toAffE loadMujoco
|
|
liftEffect $ parseXMLString mj $ XML.render node
|