diff --git a/ocaml/irc.ml b/ocaml/irc.ml index e6ff5b7..2cc7088 100644 --- a/ocaml/irc.ml +++ b/ocaml/irc.ml @@ -4,10 +4,9 @@ module C = Irc_client_lwt.Client let host = "irc.freenode.net" let port = 6667 let realname = "CheeseBot" -let nick = "cheesebot2" +let nick = "cheesebot" let username = nick let channel = "#cheeseburger" -let message = "Hello, world! This is a test from chesebot" let string_opt_to_string = function | None -> "None" @@ -50,7 +49,6 @@ let lwt_main = ~port ~username ~mode:0 ~realname ~nick ~password:"cheese" () >>= fun connection -> Lwt_io.printl "Connected" >>= fun () -> C.send_join ~connection ~channel - >>= fun () -> C.send_privmsg ~connection ~target:channel ~message >>= fun () -> C.listen ~connection ~callback >>= fun () -> C.send_quit ~connection