- # acc = join "\r\n" [rest:xs]
- # (mircc, state, w) = bot msg state w
- | isNothing mircc = (Just (concat (map toString end)), {connectionResponse (acc, s) & stop=True}, w)
- # tosendthis = concat (map toString (fromJust mircc))
- # (tosend, cr, w) = onData "" (acc, s) w
- = (Just (maybe tosendthis ((+++) tosendthis) tosend), cr, w)
+ # acc = join "\r\n" [rest:xs]
+ # (mircc, s, w) = bot msg s w
+ | isNothing mircc = (Just (concat (map toString end)), {connectionResponse (acc, s) & stop=True}, w)
+ # tosendthis = concat (map toString (fromJust mircc))
+ # (tosend, cr, w) = onData "" (acc, s) w
+ = (Just (maybe tosendthis ((+++) tosendthis) tosend), cr, w)