From ff6b555372bd56523dc8f808f68cbb15148467d9 Mon Sep 17 00:00:00 2001
From: Fabien Freling <public@ffreling.com>
Date: Fri, 12 Dec 2014 23:20:24 +0100
Subject: [PATCH] Remove IRC greetings.

---
 ocaml/irc.ml | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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