Commit f7df4134 authored by Peter Achten's avatar Peter Achten
Browse files

(PA) modifications for Clean 2.0 compatibility.

parent 73c7be70
......@@ -34,7 +34,7 @@ loop listener channels console world
glue = (TCP_Listeners [listener]) :^: (TCP_RChannels rChans)
([(who,what):_],glue, _, world)
= selectChannel_MT Nothing glue Void world
(TCP_Listeners [listener:_]) :^: (TCP_RChannels rChans)
((TCP_Listeners [listener:_]) :^: (TCP_RChannels rChans))
= glue
channels = zip3 sChans rChans nicknames
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment