X-Git-Url: https://git.martlubbers.net/?p=cloogle-irc.git;a=blobdiff_plain;f=cloogleirc.icl;fp=cloogleirc.icl;h=05aaa7d24e9f2ba0734814982173a6b8ce00a201;hp=4eccb0e37838c314ef88c094915586a10f37954b;hb=6074fc23351ac06daad779b3ac6c09a36590de24;hpb=06274599782dec28348dd52e20a7ce0232a9d616 diff --git a/cloogleirc.icl b/cloogleirc.icl index 4eccb0e..05aaa7d 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)