PureScript Foreign Non-Plain Object Import

example.purs

import foreign data XImpl :: Type

type X = { a :: Number, b :: Number, impl :: XImpl }

foreign import foo :: forall eff. Eff eff X

---

exports.foo = function() {
  var x = doFoo();
  return { a: x.a, b: x.b, impl: x };
};

foreign import bar :: forall eff. X -> Eff eff Unit

---

exports.bar = function(wrappedX) {
  return function () {
    var x = wrappedX.impl;
    doBar(x);
  }
}