suzanne.soy/pasterack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove debugging output

Browse Source
This commit is contained in:
Stephen Chang 2015-05-14 19:18:36 +00:00
parent 1925e81cc9
commit 1aee1f2d8b
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
irc-bot.rkt
View File

@ -41,14 +41,11 @@
(sync (irc-connect/internal))
(join-channels))
(sleep 60)
(loop)))))
(printf "conn: ~a\n" current-irc-connection))
(loop))))))
(define (join-channels)
(printf "join: ~a\n" current-irc-connection)
(for ([c irc-channels]) (irc-join-channel current-irc-connection c)))
(define (irc-paste msg)
(printf "paste: ~a\n" current-irc-connection)
(for ([c irc-channels]) (irc-send-message current-irc-connection c msg)))