-- | Write an IRC message.

hPutMessage :: Handle -> Message -> IO ()
hPutMessage h msg =
  B.hPutStr h $ B.append (showMessage msg) "\r\n"
hPutMessage :: Handle -> Message -> IO ()
hPutMessage h msg =
  B.hPutStr h $ B.append (showMessage msg) "\r\n"
hPutMessage h msg =
  B.hPutStr h $ B.append (showMessage msg) "\r\n"