···

       
16
       
 
       
 (package zulip_bot)

     

       
17
       
 
       
 (libraries zulip zulip_bot eio_main cmdliner logs logs.fmt))

     

       
18
       
 
       


     

       
19
       
-
       
(executable

     

       
20
       
-
       
 (public_name test_realtime_bot)

     

       
21
       
-
       
 (name test_realtime_bot)

     

       
22
       
-
       
 (package zulip_bot)

     

       
23
       
-
       
 (libraries zulip zulip_bot eio_main cmdliner logs logs.fmt))
     

···

       
16
       
 
       
 (package zulip_bot)

     

       
17
       
 
       
 (libraries zulip zulip_bot eio_main cmdliner logs logs.fmt))

     

       
18
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

···

       
4
       
 
       


     

       
5
       
 
       
open Zulip_bot

     

       
6
       
 
       


     

       
0
       
 
       

     

       
0
       
 
       

     

       
7
       
 
       
(* Set up logging *)

     

       
8
       
 
       
let src = Logs.Src.create "echo_bot" ~doc:"Zulip Echo Bot"

     

       
9
       
 
       
module Log = (val Logs.src_log src : Logs.LOG)

     
···

       
361
       
 
       


     

       
362
       
 
       
let () =

     

       
363
       
 
       
  Eio_main.run @@ fun env ->

     

       
364
       
-
       
  exit (Cmd.eval (bot_cmd env))
     

···

       
4
       
 
       


     

       
5
       
 
       
open Zulip_bot

     

       
6
       
 
       


     

       
7
       
+
       
let () =  Mirage_crypto_rng_unix.use_default ()

     

       
8
       
+
       


     

       
9
       
 
       
(* Set up logging *)

     

       
10
       
 
       
let src = Logs.Src.create "echo_bot" ~doc:"Zulip Echo Bot"

     

       
11
       
 
       
module Log = (val Logs.src_log src : Logs.LOG)

     
···

       
363
       
 
       


     

       
364
       
 
       
let () =

     

       
365
       
 
       
  Eio_main.run @@ fun env ->

     

       
366
       
+
       
  exit (Cmd.eval (bot_cmd env))