simon/linol
1
0
Fork 0
mirror of https://github.com/c-cube/linol.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Rebase-fix

Browse source
This commit is contained in:
Christoph M. Wintersteiger 2024-07-30 16:50:35 +01:00
parent f2e3c4b369
commit 845371e3a0
No known key found for this signature in database
GPG key ID: 50B5FDA31455CFF3
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/eio/linol_eio.ml
View file

@ -14,7 +14,10 @@ module IO_eio :
let return x = x let return x = x
let failwith = failwith let failwith = failwith
let fail = raise let fail = raise
let catch f handler = try f () with exn -> handler exn
let catch f handler = try f () with exn ->
let bt = Printexc.get_raw_backtrace () in
handler exn bt
let stdin env = Eio.Buf_read.of_flow ~max_size:1_000_000 (Eio.Stdenv.stdin env) let stdin env = Eio.Buf_read.of_flow ~max_size:1_000_000 (Eio.Stdenv.stdin env)
let stdout = Eio.Stdenv.stdout let stdout = Eio.Stdenv.stdout