Permalink
Browse files

Add send_quit

Signed-off-by: John Else <john.else@citrix.com>
  • Loading branch information...
1 parent b21537f commit f428a3d08deaec74bacbaacb4192ce244e8f5c3b @johnelse committed Apr 1, 2013
Showing with 3 additions and 0 deletions.
  1. +3 −0 lib/irc_client.ml
View
@@ -27,4 +27,7 @@ module Make(Io: Irc_transport.IO) = struct
let send_privmsg connection target message =
send_raw connection (Printf.sprintf "PRIVMSG %s %s" target message)
+
+ let send_quit connection =
+ send_raw connection "QUIT"
end

0 comments on commit f428a3d

Please sign in to comment.