From 66ebdf7b65ce09eb2fff5617aec4383d1b89f69b Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Tue, 20 Jul 2021 17:28:55 +0700
Subject: Force exception trace recording.

---
 src/uncron.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/uncron.ml b/src/uncron.ml
index 7040774..9fb891f 100644
--- a/src/uncron.ml
+++ b/src/uncron.ml
@@ -3,6 +3,8 @@
     Build with: ocamlfind ocamlopt -package lwt,lwt.unix,lwt_ppx,logs,logs.lwt -linkpkg -o uncron ./uncron.ml
  *)
 
+let () = Printexc.record_backtrace true
+
 open Lwt
 
 (* Queue *)
-- 
cgit v1.2.3