equal
deleted
inserted
replaced
80 let jRoomClients = map (client irnc) $ roomClients irnc jRI |
80 let jRoomClients = map (client irnc) $ roomClients irnc jRI |
81 let nicks = map nick jRoomClients |
81 let nicks = map nick jRoomClients |
82 let chans = map sendChan (cl : jRoomClients) |
82 let chans = map sendChan (cl : jRoomClients) |
83 return $ |
83 return $ |
84 if isNothing maybeRI || not sameProto then |
84 if isNothing maybeRI || not sameProto then |
85 [Warning "No such rooms"] |
85 [Warning "No such room"] |
86 else if isRestrictedJoins jRoom then |
86 else if isRestrictedJoins jRoom then |
87 [Warning "Joining restricted"] |
87 [Warning "Joining restricted"] |
88 else if roomPassword /= password jRoom then |
88 else if roomPassword /= password jRoom then |
89 [Warning "Wrong password"] |
89 [Warning "Wrong password"] |
90 else |
90 else |