import "Simantics/DB" import "plant3d/scenegraph/P3DRootNode" import "./P3DScriptNodeMap" import "JavaBuiltin" importJava "org.simantics.plant3d.scl.SCLUtil" where loadReadOnly :: Resource -> P3DRootNode load :: Resource -> P3DScriptNodeMap safeCoerce :: a -> Maybe b safeCoerce a = do (Just $ unsafeCoerce a) `catch` (\(_ :: Exception) -> Nothing)