Merge branch 'interface-improvements'

[cloogle-irc.git] / cloogleirc.icl

diff --git a/cloogleirc.icl b/cloogleirc.icl
index 300497e..3f0ac55 100644 (file)
--- a/cloogleirc.icl
+++ b/cloogleirc.icl
@@ -181,7 +181,7 @@ Start w
                                (Nothing, w) = (Nothing, io, w)
                                (Just cs, w)
                                # msgs = map toPrefix cs
-                               #! (io, w) = foldr (log strf " (s): ") (io, w) msgs
+//                             #! (io, w) = foldr (log strf " (s): ") (io, w) msgs
                                = (Just msgs, io, w)
 
                log :: String String IRCMessage (!*File, !*World) -> (!*File, !*World)