在bucklescript中打开异常的堆栈跟踪

[@bs.stack_trace]
let riskyOperation = () => {
  raise(Not_found)
};

{
  "flags": ["-bs-super-errors"]
}

exception DatabaseError(string);

let queryDatabase = () => {
  // 模拟错误
  raise(DatabaseError("Connection timeout"));
};

[@bs.stack_trace]
let main = () => {
  try {
    queryDatabase();
  } {
  | DatabaseError(msg) => 
    Js.log2("Caught DB error:", msg);
    Js.log(Js.Stack.current()); // 打印当前堆栈
  | _ => 
    Js.log("Unknown error");
  };
};

main();

{
  "flags": ["-bs-no-inline"]
}

external toJsExn: exn => Js.Exn.t = "%identity";

try {
  riskyOperation()
} catch (jsExn) {
  let stack = Js.Exn.stack(jsExn);
  Js.log2("Full JS stack:", stack);
}

exception NetworkError({
  url: string,
  status: int,
  innerExn: option<exn>
});

let asyncOp = () => {
  Js.Promise.make((resolve, reject) => {
    reject(Js.Exn.raiseError("Async failure"))
  });
};

asyncOp()
->Js.Promise.catch(err => {
    Js.log2("Async error stack:", Js.Exn.stack(err));
    Js.Promise.resolve();
  });