equal
deleted
inserted
replaced
39 h $ (upperCase . head $ c) : tail c |
39 h $ (upperCase . head $ c) : tail c |
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 c = return [Warning . B.concat . L.intersperse " " $ "Unknown cmd" : c] |
45 h c = return [Warning . B.concat . L.intersperse " " $ "Unknown cmd" : c] |
45 |
46 |
46 handleCmd cmd = do |
47 handleCmd cmd = do |
47 (ci, irnc) <- ask |
48 (ci, irnc) <- ask |
48 if logonPassed (irnc `client` ci) then |
49 if logonPassed (irnc `client` ci) then |