X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=cloogleirc.icl;h=85985d84942663838511c7db7485a9cefcbf6f2e;hp=22a219319ae9d8441e9efa452ef2807c71a69ec6;hb=fb92f01e027cdbf5ef979c5d5525211594d8f7c7;hpb=9385177d33913b183fff158ed04705f4a39bfb18 diff --git a/cloogleirc.icl b/cloogleirc.icl index 22a2193..85985d8 100644 --- a/cloogleirc.icl +++ b/cloogleirc.icl @@ -177,7 +177,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)