commit 228c5af6b71b825138badbbb51180da9f1570308 · anil.recoil.org/slop

-5

stack/zulip/examples/dune

···

       16
       16
        
        (package zulip_bot)

     

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

     

       18
       18
        
       

     

       19
       19
       -
       (executable

     

       20
       20
       -
        (public_name test_realtime_bot)

     

       21
       21
       -
        (name test_realtime_bot)

     

       22
       22
       -
        (package zulip_bot)

     

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

+3 -1

stack/zulip/examples/echo_bot.ml

···

       4
       4
        
       

     

       5
       5
        
       open Zulip_bot

     

       6
       6
        
       

     

       7
       7
       +
       let () =  Mirage_crypto_rng_unix.use_default ()

     

       8
       8
       +
       

     

       7
       9
        
       (* Set up logging *)

     

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

     

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

     
···

       361
       363
        
       

     

       362
       364
        
       let () =

     

       363
       365
        
         Eio_main.run @@ fun env ->

     

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

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