equal
deleted
inserted
replaced
40 else |
40 else |
41 return [] |
41 return [] |
42 where |
42 where |
43 h ["DELEGATE", n] = handleCmd ["DELEGATE", n] |
43 h ["DELEGATE", n] = handleCmd ["DELEGATE", n] |
44 h ["STATS"] = handleCmd ["STATS"] |
44 h ["STATS"] = handleCmd ["STATS"] |
|
45 h ["PART", msg] = handleCmd ["PART", msg] |
|
46 h ["QUIT", msg] = handleCmd ["QUIT", msg] |
45 h c = return [Warning . B.concat . L.intersperse " " $ "Unknown cmd" : c] |
47 h c = return [Warning . B.concat . L.intersperse " " $ "Unknown cmd" : c] |
46 |
48 |
47 handleCmd cmd = do |
49 handleCmd cmd = do |
48 (ci, irnc) <- ask |
50 (ci, irnc) <- ask |
49 if logonPassed (irnc `client` ci) then |
51 if logonPassed (irnc `client` ci) then |