mirror of
https://github.com/c-cube/linol.git
synced 2025-12-06 03:05:31 -05:00
handle End_of_file by exiting
This commit is contained in:
parent
41a6c3e306
commit
02e678cbe2
1 changed files with 1 additions and 0 deletions
|
|
@ -390,6 +390,7 @@ module Make (IO : IO) : S with module IO = IO = struct
|
|||
| Ok r ->
|
||||
let* () = process_msg r in
|
||||
loop ()
|
||||
| Error (End_of_file, _) -> IO.return ()
|
||||
| Error (e, bt) -> IO.fail e bt
|
||||
in
|
||||
loop ()
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue